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module inh getcog ine 
Cident='v04-000' 
addressing mode 
(external = general 
ghenestornat = long_relative 
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begin 
Vee EAEREAAAARAAAARAAAA AAA AAE AAA AAE EAA 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
's DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
tt ONLY IN ACCORDANCE WITH THE TERM F H LICENSE AND WITH THE 
'® INCLUSION OF THE Per SNOT IDED On BTNERal SOFTWARE OR ANY OTHER 


ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
ie 
® 
® 
& 
tt 
& 
® 
& 
ie TRANSFERRED. * 
® 
® 
® 
® 
® 
® 
wy 
® 
® 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


pean lala lelololololololo lo lo lo lolololelelelo!] 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
; 
2 
é 2 ix CORPORATION. 
2 $ ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
Oe is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
; 03 D eeususenbieniaubbenmeannennnetieneabeeenedtinanaieiinmibbaninbdniadmeniionion 
i] 
3 03 
j 035 1! 
O39 1 i 
; oy itt 
4 040 i MODULE : LNK_GETCMDINP 
4 O4e i FACILITY: LINKER 
2 ote ABSTRACT: Command Language Interface For The LINK Command 
4 046 HISTORY: 
é 48 VERSION: x01.00 
5 030 AUTHOR: T.J. PORTER 03-MAY-77 
; O5¢ MODIFIED BY: 
if : V03-026 ADE000S Alan D. Eldrid 24-Jul-1984 
5 i 
0089 i V03-025 ADE0004 Alan D. Eldridge 30-Jun-1984 


e 
Save proper STV value on L1BSF IND_FILE error. 
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71986 43:46 W0e: 
Fix bug in /NOEXE. 


v03-024 ADE0003 Alan D. El ridge 22-Jun-1984 
Add LNKS$GB_LOCNOV_MAP, LNKSGB_COCNOV_EXE, and LNK$GB_LOCNOV_SYM 
for proper ‘Grammer Rule’ support for constructing gutput file 
names. These are really flags which, when set, indicate that 
appropriate auiten had was used locally but had no value 
associated with it 


v03-023 ADE0002 Alan D. Eldridge 14-Apr-1984 
More fixes to positional qualifier support. 


VO3-022 ADE0001 Alan_D. Eldridge yd 
Convert routine INPUTFILE to use LIBSFIND_FILE rather than 
SSEARCH and SPARSE. 


Add support for proper defualting when /EXE, /MAP, or /SYM 
are used as local, rather than command, qualifiers. 43 


v03-021 MCNO001 Maria del C. Nasr 20-Jul-1983 
Determine if the options file is being reed from 


Ooo 


CSOoQoooooooooooooooooo 
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SODNAUES WN $0 OONOUES WN SO OODNOUS WN — 
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INPUTFILE is now able to more intelligently specify 
a file to close. 


vO3-011 JWT0049 Jim Teague 06-Aug-1982 
Call LNKSCLOSEFILE to close files, rather than $CLO 


o 
oO 
oo 
io 
ee ee ee ee a a a ee ee ee ee ee ee ee ee ed 


0079 SYSSINPUT or not. This is needed so that there is 
0080 no dyel ication of input Line on output when SET 
poet VERIFY is on. 
008 V03-020 ywr0125 Jim Teague 21-Jun-1983 
0084 Allow UNIV=* when accompanied by /NOEXE. It can thus 
0085 be uses only for STB generation from shareable image 
nks. 
0087 
0088 v03-019 JwT0119 Jim Teague 11-May-1983 
4-94 Tweak new CLI stuff again... adjust map qualifiers. 
0091 V03-018 JwT0117 Jim Teague 29-Apr-1983 
sit /NOEXE is equivalent to /EXE=NL: 
0094 VO3-017 ywr0113 Jim Tongue 20-Apr-1985 
32 44 Call $getjpi to get number of open files left. 
97 009 v03-016 JwT0108 Jim Teague 13-Apr-1983 
a8 48 More adjustments to new CLI interface. 
100 100 v03-015 Jw10107 Jim Teague | 07-Apr-1983 
19) 13) Fix problems with /MAP qualifier defaults. 
108 0108 v03-014 JWwT0099 Jim Teague 03-Mar-1983 
ie Bide New cli interface. 
196 138 v03-013 swr0059 Jim Toegue 19-Oct-1982 
44 0 Corrected problem with basing system images explicitly. 
1% 19 V03-012 JWI0054 Jim Teague 15-Sep-1982 
111 11 
By 11 
11 11 
114 011 


CLOSE. 
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4-Sep- MNKEReS CJLNKG TCMD. B52;1 (1) 
s 115 116 1! 
s 11 118 & v03-010 JywT0044 Jim Teague 30-Jul-1982 
$ 1} 1} / Open file performance boost. 
: 119 118 1/ v03-009 BLS0166 Benn Schreiber 29-Mar-1982 
; 131 131 i Set SQ0 when opening input files 
: 122 122 1 ie. 
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conditions. 


Bh g'gbal routine LNKSALLOFDB is also included in this module to allocate 
and initialize file descriptors and resultant file name string areas. It is 
described in detail below. 


> 124 123 1! 

s «Ye 124 1 !e+ 

 s § 125 1! 

; : 5 ; ° : ; FUNCTIONAL DESCRIPTION: 

: 129 128 1 ' This module contains all the routines and data structures to process the 
; : : 1 3 : input command parameters and options. There is a global routine: 

; 13 13 ; LNKSGETCMD (arglist) 

3 1 1 § 1 i Where arglist is the address of the or tginat argument List with which the 
s 335 134 1! Linker was called. This argument List is used to perform calls back to 

3 : § 3 5 ' } the CLI for result parsing. 

: 138 01 5 1 ' This module also contains parameter request blocks which are passed with 
: 139 138 1! each call to the CLI, as well as parameter qualifier description blocks and 
3 re ; 3 : a set of action routines which are called by the CLI on the appropriate 

: 148 141 1! 

; (146 1 g 1! 

3 6146 3 1! 

; «6145 144 1! 

; 146 0145 1! 

3: «(147 0146 1! 
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bot LINKER. SRC JLNKGETCMD.B52;1 


: 149 147 1 forward routine 

3; 13 138 1 ink$srcpscdef, ' Look for psectname in psect def by opt List 
s 15) 149 #1 ink$collectpsct : novalue, ! Perform PSECT collection/definition 
..% § 150 1 Sefuser (16. ' Selectively set logical name tables to search 
. % 151 1 clierror : novalue, ' called for all cli errors 

: «154 1 § 1 call_tparse, ! Call tparse to parse a value 

3 155 1 1 ink$allocluster : novalue, ' Allocate a cluster descriptor 

3; 1 $ 154 3 ink$allofdb : novalue, ! Allocate file descriptors and resultant string areas 
5 33 155 1 output file : novalue, ' Called for all output files 

; 128 1 § 1 input file : novalue, ' Called for each input file 

; 159 0157 1 pres nal lenge : novalue, ' Called for system and shareable images 
; 160 138 1 ink$setlibrin : novalue, ' Called for library files 

; 161 1 1 ink$insert_clu, ! Insert cluster into cluster tree 

3 166 160 1 optionfile : novalue, : 

; 16 0161 1 get_image : novalue, ! Process image qualifiers 

: 164 B19¢ 1 get_map : novalue, ! Process map qualifiers 

; 165 a 1 get_sym : novalue, ' Process /SYM 

> 166 164 1 get_input, ! Process input file name 

3 + 24 3193 : setup_inrelnam ; ' Setup related name for output files 

; 169 b189 1 LIBRARY 

: 170 0168 1 *STARLETL32° ; ! System structure def'ns 

3; «6171 0169 1 require 

: \7e 0170 1 "PREFIX ; ! Utility macros etc. 

. o582 1 library 

; «(1746 0 o6 1 *DATBAS' ; ! Internal data base definitions 

s 175 oH 1 Library 

; if 0288 1 *CLIMACL32" ; ! Command Language structures 

Soe 0289 1 Library 

3 178 5944 : *TPAMACL32" ; ! Tparse macros 

; 4 594 : Set up string descriptors for qualifers 

: 136 P 0294 1 sd (‘BRIEF', ‘CONTIGUOUS’,  ‘CROSS_REFERENCE', peeUs "EXECUTABLE" 
; 1 b 8 95 1 » FULL’ HEADER’ *MAP' *POIMAGE', *PROTECT' 
> 184 P 02% 1 ;'SHAREABLE', ‘SYMBOL TABLE’, ‘SYSLiB', *SYSSHR' "SYSTEM' 
3; «(185 P 0297 1 » TRACE’ "USERLIBRARY', ‘INCLUDE’, "LIBRARY', ‘OPTIONS’ 
: 186 P0298 1 "SELECTIVE_SEARCH', "p1' 

: 1B 0800 | 4 

: «189 ™ 0301 1 macro copy_desc (src, dst) = 

: 190 ial B06 1 begin 

: «191 m 03 1 dst Cdsc$w_length] = .src Cdsc$w_length) ; 

; 196 i 83 1 dst qscsp_ci ass, = .src Het he : 

3; «(19 Lal 2 a dst Ldsc$b_dtype = .src Ldsc$b_dtype] ; 

> 19% m0 1 dst Cdsc$a-pointer) = .src Cdsc$a_pointerd ; 

3; «6195 i 1 end 

1 Ria 

; 198 10 1 external Literal 

5 IW 3 cli$_negated, ! Qualifier expt icitty negated 

: 200 \ 1 cli$_locneg, ' Qualifier was local y negated 

; 201 >} ee cli$_defaulted, ' Qualifier was defaulted 

3 4 14 1 cli$_locpres, ‘ Qualifier was locally present 

; 15 1 cli$_present, ' Qualifier wes presen 

: 206 16 1 Lin$_univstar, ! UNIVERSAL=* ignored unless /NOEXE 

; 205 17 «1 Lin$_closein, ! Close error 
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15- 
Vy 


=gnds ntax, 
_tirstmod, 


Scvt_htb, 

present, 

9st value, 
ind_file, 
find_file_end, 


: novalue, 
: novalue, 
ink$procoptns, 
ink$filnamdsc, 
Lnk$Sinsudfsym, 

ink$insert 

ink$closefile, 
Lnk$openlib, 

Lnk$search ; 


' 
external 


: ref block C,bytel, 


: word, 
: ref block C,bytel, 
ink$gl_ctimsk =: block t ebyted. 


= : ,bytel, 
ink$gl_clulst : vector . 
: Bleck Cy el), 


: ref block byte ° 
: ref block C,byte], 
: ref block C,bytel, 
: ref block C,bytel, 
ink$gw_nclusters : word. 
: wor 

ink$gl-symfil  : ref block C,byte), 
ink$gl_cclulst, 


ink$gl_pscdflst ; 


4 

Bind _firstcluster = Lnk$gl_clulst (0) 
null_device = $descriptor ("NL:") : 
g 


ink$gl_filesleft, 


$ 
-$ 


ee ee ee 


4 ; 757:45 AX-11 ee V4.0-74 
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Command syntax error 

First module cequires extraction since library 
dt hegat qualifier value 

pise ay segment in error 

No input modules specified 

Error opening input file 

Traceback supression overridden 


Search List compatible related name processing 
Cleanup after LIBSFIND_FILE 

Insert into balanced binary tree 
Lookup entry in balanced binary tree 
Table driven parser 

Lookup/enter psect names 

Allocate dynamic merory 

Deallocate dynamic memory 

Option file processor 

Return oer ine descriptor for file nam 
Insert symbo 

Symbol table insert routine 
Routine to close a file 
Routine to open a btbrary 
Symbol table search routine 


Include iist descriptor 
Stack size 


Control flags 

Pointer to last cluster in List 
Cluster descriptor Listhead 

Default cluster descriptor 

Current cluster descriptor 

Listhead for cluster tree 

Free virtual memory Listhead 

Pointer to image file descriptor slot 
Pointer to the map file descriptor 
Number of clusters allocated 

Number of symbols 

Pointer to symbol table output file 
List head (singly Linked) 

For clusters in collect option 
Singly Linked Listhead 

For psects defined with psect option 


: ref block Cebytel. ' Pointer fo tirst 


,byte ' Null device for /NOEXE 


! Number of files left to open 


e 
descriptor in undefined symbol List 
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y00=000 12280871 38e 13:20:46 LINKER. SRC JLNKGETCMD.B52;1 ’ (3) v04 
; 263 75 1 Lnk gt ylibmask, ! Mask of enabled name tables to search 
> 264 76 «1 ink$gl_inrelnam, ! Address of nam block of first input file 
; 265 1 ink$gl_relnam_exe, ! Address of related nam block for .EXE 
3 ¢ 78 1 Lnk$gl_relnam_map, ! Address of related nam block for .MAP 
; 26 79 «1 Lnk$gl_relnam_sym, : acereas of nes eee nam block for . 
; 268 » 1 ink$gb_locnov_exe byte, ! Set if /EXE used locally with no specified value 
3 9 1 Lnk$gb_locnov_map byte, ' Set if /MAP used locally with no specified value 
3 0 ¢ 1 Lnk$gb_locnov_sym byte, ' Set if /SYM used recally with no specified value 
3 er 1 Lnk_gb_cetcmd_spl byte, ! Spare, used for alignment 
; e7 4 1 ink$9t_sys nput_ flag, i Set when option file is sys$input 
; ie, 5 ! : ink$gl_icliwork ; ! Pointer to work area for cli 
; 275 § 1 global bind 
3 y 4 SS : ink$gt_jpilst = Sitmlst_uplit (Citmcod = jpi$_filcnt, bufadr = Lnk$gl_filesleft)), 
; 278 0390 1 ert imgsta = cstring ("SYSSIMGSTA'), ! Name of debugger activator 
; e279 8 91 1 Libfiltype = uplit (byte ('.0LB')), ' Library file type 
; 280 35 1 defiletype = uplit (byte ('.0BJ')), ' Default file type 
; 4 Baez : shrfiltype = uplit (byte (".EXE')) ; ! Shr img file type 
3 8s 0395 1 map 
5 ¢4 b338 ! ink$gl_ulibmask : bitvector () ; ! Pretend its a bitvector 
; $B 0398 1 ! OWN STORAGE 
; 287 0399 1! 
; 288 8200 1! 
; 289 0401 1 Literal 
; 290 Bone 1 imgtabsiz = 7, 
; 291 04035 1 system_regior = %x'80000000', 
; 06o4 1 rsa_alTosize = nam$c_maxrss*3/2, ! Rsa allocation quantity 
; @& 0405 1 typelen = 4; ! Length of file type string 
; 294 0406 1! 
; 295 0407 1 own 
: 296 0408 1 univstar_valid initial (false), ! UNIV=* valid only with /NOEXE 
; 297 0409 1 local_qualifier : initial (false), ' Set to TRUE when /MAP, /EXE, and 
: 298 0410 1 ! /SYM are parsed as local qualifiers 
; 299 0411 1 Listptr, ! Dynamic include List ptr 
; 300 Bele 1 dflt_name : vector Cnam$c_maxrss, byte). ! Default input related name text 
: 301 0413 1 dflt_inrel : block Cnam$c_bln, bytel, ' Default input related name nam$ 
3 08 0414 1 cast_fnm_desc ref block C,byte] initial (0), ' Last input file descriptor 
; wD 0415 1 rlf_context : ref block C,byte] initial (0), ! Related filename context 
3 304 bei$ 1 an_open_fdb : initial ° 
; 305 417 1 debup_désc : dynamic_descriptor, 
: 06 Beis 1 module_desc : dynamic_descriptor, 
; Ww 19 +1 share_desc : dynamic_descriptor, ! /SHAREABLE descriptor name zk 
; 308 420 1 token_desc : dynamic_descriptor, ! Dynamic dese for general veoge 
; 421 1 systembase, ! Base specified in /SYSTEM= ER 
: 310 § 1 basedflag, ! Set true if /SYSTEM=NUMBER : 
s Siti 1 outfile, ' Ptr to ptr for the current output file 
: \¢ 4 1 nextrsa, ! Ptr to slot for next resultant string on o 
3; (3 5 1 typeade : initial (ch$ptr (defiletype)), ! Address of the file type string 
: 314 $ 1 infilflgs, ' Flags of each input file 
3 51S 1 tpdata, ! Data from tparse 
3 1g 8 1 rsaremsize : byte, ! Size remaining in rsa 
: : , ! image_qual_table : vector C imgtabsiz, long ] 
: nitia 
; 5 431 1 (sd_trace, sd_contiguous, sd_pOimage, sd_protect 


5 | 
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y062000 12780871 38s $3:20:46 LINKER. SRCILNKGETCMD.B 2;1 ° (3) V04 
; 9 4 ‘ pSd_syslib, sd_sysshr, sd_header : 
; § : ! bit_table : yector Cingtabsiz, byte] : 
H nitia : 
3 4 $ 1 (byte (Sbitposition (lnk$v_trace),  S$bitposition (Lnk$v_contig) ° 
; 5 04 1 $bitposition 9 nkav pO tees)» $bitposition (lnk$v_protect) . 
; $ 4 8 1 s$bitposition (lnk$v_syslib), S$bitposition (lnk$v_sysshr) ° 
; 1 Sbitposition (lnk$v_sysheadr) ‘ 
; 328 440 1 S; é 
; % ree } ; 
; 1 ct8 : Tparse tables to parse /userlib qualifier values ; 
; 5 ret ; Sinit_state (userlib_states,userlib_keys) ; ; 
: 5 P te} 1 Sstate (, ("SYSTEM', tpa$S_exit,,1,lnk$gl_ulibmask), ; 
; P 0448 1 (*GROUP' pa$S_exit,,2,lnk$gl_ulibmask), 
: 337 P0449 1 (*PROCESS', tpa$-exit,.4.\nk$gl_ulibmask). 
3 8 P 0450 1 ' tpa$_exit,,7,\nk$gl TY pat 
; 339 P 0451 1 ("NONE',  tpa$_exit,,%x'800000 O', Lnk$gl_ul ibmask) 
; 340 Be 36 1 yg 
; 341 0453 1 


| 
~ 
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14-Sep-1 LINKER. SRCJLNKGETCMD.B52;1 (4) 

: re : global routine Lnk$getcmd (arglist) : novalue = ; 
; 345 lis : 
; 3% 1 This reyt tne initializes the CLI result parser then re-cails it for ; 
3; 36 1! processing of each command parameter. It first calls for the primary output : 
; 34 1! parameter (the image), then the soceneety output parameter (the map), , 
3 0 1! followed by the third output parameter (the symbo tovie file). Next it ; 
3 1 1! loops, calling for input parameters (primary only) until there are no more. : 
; § 1! the actions taken on presence or absence of any parameter and its qualifiers ; 
: 1! are taken in the other routines (below) which are called by CLI on the : 
: ¢ : appropriate condition. : 
; 1i ; 
; 5 1 ! ARGLIST is the address of the argument List with which the Linker was : 
3 330 1! originally called. : 
; 359 1! : 
; 360 1 !- 5 
a.) begin $ 
: os map : 
; 6 arglist : ref block C,byte) ; ! Really a vector of longwords : 
3 22 Lnk$gl_ctimsk Cink$v_verify] = .arglist Ccli$v_verify] ; ! Copy verify context of process ; 
: 367 rsaremsize = rsa_allosize*3 ; ' Set up the resultant string area ; 
: 3 ink$alloblk (.rsaremsize,nextrsa) ; ! For the file opens (triple size at first) : 
; 370 : 
; 371 ! ; 
; Loop through qualifiers that do nothing but set a bit in LNKSGL_CTLMSK... ‘ 
: i : 
; $ incr i to lagtobets - 1 ‘ 
; 8 do Ink$gl_ctlmsk (0,.bit_table C.i],1,0] = cli$present (.image_qual_table (C.i]) ; : 
: 04 if cli$present (sd_userlibrary) ! /USERLIBRARY ; 
3 8 then setuserlib () ; : 
; 49¢ if cli$present (sd_system) ! /SYSTEM 
3 8e8 then eg n 
; 94 ink$gl_ctlmsk Clnk$v_sys] _ = true ; ' Set/clear bits 
; 95 ink$gl_ctlmsk pengv traced = false ; ! and call 
3 38 Lnk$gi_ctlmsk [Clnk$v_exe = false ; ! specialimage 
; 2 spec alimage () ; 
; en 
; 99 else if cli$present (sd_shareable) ! /SHAREABLE 
; 5 then begin 
3 501 ink$gl_ctlmsk (link$v_shr] _ = true ; ' Set/clear bits 
; 5 § ink$gl_ctlmsk tnkev traced = false ; ' and ca 
3 5 EnkSol tlmsk (lnk$v_exe = false ; ! specialimage 
; 5 specialimage () ; 
3 505 end ; | 
; 3 if cli$present (sd_debug) ' If /DEBUG present, 
; ; 3 then begin ! then attempt to grab a value for 
3 cli$get_value (sd gebus. debug_desc) ; ! the qualifier (no value is ok) 
; 510 ink$gl_ttlmsk Clnk$v_dbg] = trae ; 

| 


ee 
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vO4 127 808= 138 ; 20:40 LINKER. SRCJLNKGETCMD.B52;1 . (4) | 
; br : i} end ; 
3; 6 g 18 get_image () ; ' Go get image file name 
; 4 14 get_map () ; ! Go get map file name and qualifiers 
: ¢ ¢ 1? get_sym () ; ! Get symbol table file name 
3; 6 5 local_qualifier = true ; ! /MAP/EXE/SYM are now local qualifiers 
; 4 18 while get_input () ! Loop while more input files... 
3; «6 1 do pepo 
; 409 y get_image () ; 
: 410 get_map 3 
; «411 § get_sym () ; 
3 tig end ; 
i at 3 
: rh § LibSfind_file_end (rlf_context) ; ! Cleanup after input processing 
: ri 8 ink$gl_ctlmsk Clnk$v_image] = .lnk$glictlmsk ([lnk$v_sys] or 
; 418 5 elnk$gl_ictlmsk Clnk$v_shrj or 
; rh ; ? ' elnk$gl_ictlmsk Clnk$v_exe] ; 
: 421 5 i 
; 4 § 5 : ; If a MAP was requested, process MAP qualifiers. This could be done 
s 6 534 ! sooner since /MAP is positional and the other map qualifiers are 
3 : ¢ 3 5 } global. 
: 4 5 i 
3 6 $ 538 if .lnk$gl_ctimsk Clnk$v_map] 
; 428 539 then begin 
: 429 540 if cli$present (sd_full) ! Process map qualifiers 
; 4 541 & then pegin 
; 431 B26 4 Lnk$gl_ctlmsk finkgv. long) = true ; 
3 6 g 5435 4 ink$gl_ctlmsk Clnk$v_supsys] = false ; 
' is of 
: 435 346 if cliS$present (sd brief) 
3 : 3 rtf then Lnk$gl_ctlmsk CTnk$v_brief]) = true ; 
3 438 549 if cliSpresent (sd cross_reference) 
3 rte ae then Lnk$gl_ctlmsk CInk$v_Cros] = true ; 
; end ; 
fa seg S 
3 46 334 i 
3 444 555 : If /SYSTEM=number, then set the base now 
i BH 
3 46 338 if .basedflag 
; yr 55 then 
; 44 4 44 begin 
: 450 56 if .lnk$gl_ctlmsk (lnk$v_sysheadr] 
3; 451 266 then (nk$gl_defclu clust base] = (.systembase + 511) and not 511 ! Only round if /SYSTEM/HEADER 
3 +26 367 else ink$gl_defclu Cclu$l_base] = .systembase ; 
; 454 ee f -ink$gl_defclu (clu$l_base) gequ control_region ! Set correct allocation Limits 
; «6455 266 then if -ink$gl_defclu (clu$l_base gsqu system_region 
; 456 6 then ink$gl_fvmlst Cfvm$l_address] = system_region 
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Fofenct ge 25:57:48 


ress 


Check that there was at least one input module 


Ot ee meme en 


f fieste luster eql 0 
n 
-lnk$gl_defclu CcluSl_fstfdb] eql 0 
en 
signal_stop (Lin$_nomods) ; 


was requested. 
However suppress it if this is a system image 
-lnk$gl_ctlmsk FtAKSy ays) ¢ r .lnk$gl_ctlmsk Clnk$v_shrJ 
en ink$gl-ctlmsk Clink$v~ traces = false ; 
Lnk$gl_ctimsk Clnk$v_dbg] or .lnk$gl_ctlmsk Clnk$v_trace3 


co =. CD tet me mt mmm meme 


o_O 


begin 
tit not .ink$gl_ctlmsk Clnk$v_trace] 
then signal (LinS_tracign) ; 


17 debe = fdb$m_debuger ; 
ae ug. desc Cdsc$w_length] neq 0 
beg 
Lette (debug_desc) 
find_file_end (rLf context) ; 


else Sate 
local symnam : 


ref block z -bytel, 
symval : 


ref block C,byte) ; 


Lnk$search (Lnk$gt_imgsta,symval,symnam) ; 
rhea incert CinkSgt_ imgsta,symval,symnam) ; 
ink$insud wove (.symval) ; 

ink Sgu_ nsymbols = . ink $gw_ nsymbols + 1 ; 
end ; 


end ; 


ink$gl_ctlmsk Clnk$v_verify] = 
ink$collectpsct () ; 

if einkSgl_ defclu Cclu$l_fstfdb] neq 0 
Pebsgt Lestetu elu fe nxtclu] 


LAk$gl_defclu 
bien ink$gl“defclu 


false ; 


then. 


cTu$l_prevclu 
clu$l“prevclu 


oun 
. 

-—— 

as35 
, 
PAM 

oowe 
-—— 
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1 

1 
address ontrol_region 
add }: s 6 3 oreo 


! if no clusters allocated 
! And no files in default cluster 
! There were no input modules - fatal error 


Now Link the debugger into the input file List if DEBUG and/or TRACEBACK 


! If /DEBUG specified or /TRACE was 
! present or implied 


! If only dbq then 
! Report confl 


' Set the file fla 
! If /DEBUG=F ILENAME 


! Then go do it 


ict as info. 


' Else default debugger 
! Pointer to name part of symbol block 
! Pointer to value part of symbol block 


Look up the pyabet 

And insert 

Insert eae in undefined List 
Count the symbol 


Turn off verify status 
Perform psect collection and definition 
If default cluster has some files 


defclu ; ' Link it on to end of 
lastclus eql 0! 
clulst ; 
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1Oe7650 1278eb- 138s $3:20;40 Le tner’Seelincce temo 682.1 ave 15 v04 
: 13 é Laesehteetste = Ink$gldefclu ; ! And make it the last cluster then 
; 16 
s 31 nk$gl_ctlmsk Clnk$v_alluniv) ! if univ=* reques Llow it onl 
; 18 Sten v net" nivstar_valid ! it /NOE XE prot} fee be} Mg ’ 
3 31 hen beg n ! = generation 
3 0 tnkégl (Lin$_univstar) ; 
i 521 : RSol_ ctlmsk Clink$v_alluniv] = false ; ! otherwise disable it 
: § 634 return ; 
; 4 635 end ; 


-TITLE LNK GET CHD INP 
-IDENT \Vv0%-000\ 


-PSECT _LIBSKEY1$,NOWRT, SHR, PIC,1 
00000 ; TRASKEYSTO 


i. 8 0 
4D 45 54 53 59 53 00000 ;TPaSKEYST 
4: ASCII \SYSTEM\ : 
FF 006 “BY -1 : 
itd gTpASKeYSTO 0 
50 55 4F 52 47 00007 ; TPASKEYST 
O.11: i Astii \GROUP\ i 
FF Q000C BYTE -=1 r 
00000 ;TPASKEYSTO 0 
53 53 45 43 4F 52 50 O000D ; TPASKEYST 
U.18: eASCII \PROCESS\ 3 
FF 00014 BYTE -=1 3 
00015 ; TPASKEYSTO 
U.23: -BLKB 0 
4C 4C 41 00015 ; TPASKEYST 
_ Yee eASCII \ALLN ; 
FF p0o8 .BYT -1 § 
0019 ; TPASKEYSTO 
U.30: BLK 0 
45 4E 4F 4E 00019 ; TPASKEYST 
U.32: eASCII \NONE\ 3 
FF 0Q001D BYTE -1 3 
FF OOO1E ; TPASKEYFILL 
U.37: -—BYTE -1 : 


.PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
00000 USERLIB_STATES:: 


° 0 
7100 00000 ; TPASTYPE 
U.5: 7 28928 i 
00000000 00002 ; TPASADDR 
0.6: LONG <<LNKSGL_ULIBMASK-U.6>-4> ; 
00000001 00006 ; 7PASMASK ’ 


LON 
FFFF QOO0A S TPASTARGET 
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04000 


7101 
00000000+ 
00000002 

FFFF 

7102 
00000000* 
00000004 

FFFF 

7103 
00000000* 
00000007 

FFFF 

7504 
00000000* 
80000000 

FFFF 


0000+ 
0000+ 
0000* 
0000+ 
0000+ 


46 45 49 52 42 


0000000" 


00036 
0003A 


00000 
00000 ; 
00000 
00002 
00004 
00006 
00008 


ne 


m. 
gep 257: AX-11 Bliss-32 V4.0- 
Sep 7138? ; 253% LINKER.SRCJLNKGETCMD. TiS, 31 
U. 8: WORD 
; TPASTYPE 
U. 12: ~ WORD 28929 
3; TPASACOR 
U. 13: LONG <<LNKS$GL_UL IBMASK=-U.13>-4> 
; TPASMASK 
U.14: «LONG 2 
3; TPASTARGET 
U.15: WORD -1 
; TPASTYPE 
U.19: -WORD 28930 
; TPASADDR 
U.20: .LONG <<LNKS$GL_ULIBMASK-U.20>-4> 
3 TPASMASK 
U.21: eLONG 4 
3; TPASTARGET 
U.22: eWORD -=1 
; TPASTYPE 
U.26: -WORD 28931 
3; TPASADDR 
U.2?7: -LONG <<LNKS$GL_ULIBMASK-U.27>-4> 
3 TPASMASK 
U.28: -LONG 7 
3; TPASTARGET 
U.29: ~WOR -1 
; TPASTYPE 
U.33: WORD 29956 
; TPASADDR 
U.34: ~ LONG <<LNKS$GL_UL IBMASK-U.34>-4> 
3; TPASMASK 
U.35: LON -2147483648 
;TBASTARGEX 
U.36: ORD -1 
-PSECT _LIBSKEYOS$,NOWRT, SHR, PIC,1 
USERLIB_KEYS:: 
LKB 
: TPASKEYO 
v. 13 -BLKB 0 
; TPASKEY 
. : ~WORD <U.2-U.1> 
; TPASKEY 
~ WORD <U.9-U.1> 
 TPASKEY 
U.17: » WORD <U.16-U.1> 
+ TPASKEY 
eWORD <U.23-U.1> 
 TPASKEY 
U.31: WORD <U.30-U.1> 
-PSECT SPLITS,NOWRT,NOEXE,2 
P.AAB: .ASCII \BRIEF\ 
BLKB 
P.AAA: ONG 


el 
+ADDRESS P.AAB 
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53 55 4F 


55 


45 43 4€ 45 52 45 46 45 52 


45 4C 42 41 


45 4C 


45 4€ 42 41 


54 


45 


54 


42 


5F 


47 


5F 


54 


52 


47 


43 


41 


4C 


42 


52 


4D 


49 


53 


47 


55 


45 


b-sap-1 
14-Sep-1 
4E 4F 43 19 P.AAD: 
A P.AAC: 
or 8890080 P.AAF: 
SHURE, HSE Pome 
42 45 4 if P.AAH: 
SHES, HR Ps 
>) 4 56 P.AAJ: 
SHINS, SEES Pa 
abot ie PAK: 
Phat tart 9 ODee P.AAN: 
SSUES, B15 an 
50 41 4D Bare P.AAP: 
4 44 2 a P.AAO: 
49 30 i OORE P.AAR 
SSNERE, $390 P.0 
4F 8 50 BRae P.AAT 
aie Ta OOAO P.AAS 
0030009" OOA4 
41 48 4 fa P.AAV 
0090000 it P.AAU 
4D 88 O08 P.AAX 
00900006 One P.A 
RT 
2000086 o8 P.AAY 
53 3 : eb P.ABB: 
0000 FS P.ABA 
SNES, 8 
53 0 i P.ABD 
seegaags | £8 P.ABC: 
41 4 it; P.ABF 
00000005 108 P.ABE 


BC f2:46 


43 AX-11 Bliss-32 


-ASCII \CONTIGUOUS\ 


-LONG 0 
DRESS P.AAD 
. “ASCH \CROSS_REFERENCE\ 


se 
= 
x 
ON FX SN VAS 
m> 


“ADDRESS P.AAN 
“ASCII \MAP\ 


“LON ONG 
“ADDR ESS 
ASCII \POIMAGE\ 
PONG 5 

ADDRESS P.AA 

“ASCII \PROTECTA 

*BLKB 1 

LONG / 
“ADDRESS P 
hi \SHAREABLE\ 


.AS 


ADDRESS P 

CII \ VABOL. TABLE\ 
» LONG 
143) hale 

aay 


\S¥St 1B\ 


HP atl 
TCMD.B52;1 
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Lu=650 1areb= 1882 F3i25:93 | HNN RO SHES TReGY te An bS2,1 vad V04 
00000000" 001 .ADDRESS P.ABF ; ; 
59 52 41 52 42 49 4C 52 45 Si 9 1%5 P.ABH “ASEH \USERLIBRARY\ : ; 
99000 116 P.ABG: .LONG 11 ; : 
0000000' 001 “ADDRESS P.ABH : : 
45 44 55 4C 43 4E 4 4 P.ABJ “ASCII \INCLUDE\ : : 
9000007 1 ¢ P.ABI: LONG ’ ; ; 
0 0 000° 001 “ADDRESS P.ABJ ; : 
59 52 41 52 42 49 4€ , P.ABL: “ASCII \LIBRARY\ : ; 
000007. 0013C P.ABK: ‘LONG ; ; 
009000 0" 126 “ADDRESS P.ABL F : 
53 4E 4F 49 54 4F 00144 P.ABN: ‘ASCII  \OPTIONS\ : : 
0148 *BLKB ot : 
00000007 14¢ P.ABM: .LONG 7 ; ; 
0009000 ' 19 “ADDRESS P.ABN : ; 
43 52 41 45 S53 SF 45 56 49 546 43 45 4C 4 ; 0154 P.ABP: <ASCII \SELECTIVE_SEARCH\ : i 
00000010 00164 P.ABO: .LONG 16 : : 
00900000" 0168 “ADDRESS P.ABP : : 
1 50 0016C P.ABR: .ASCII \PI\ 3 ; 
O1GE “BLKB : 
90000002 00170 P.ABQ: ;LONG F : 
00000000" 00174 “ADDRESS P.ABR ; : 
3a 4C 4E 00178 P.ABT: ‘ASCII \NL:\ ; : 
0178 *BLKB ; 
00000003 0017C P.ABS: ‘LONG 3 ; : 
60000000" 90180 “ADDRESS P.ABT : : 
0314 0004 00184 P.ABU: WORD 4, 7 ; 
00000000" 00188 [ADDRESS CNKS$GL_FILESLEFT ; 
00000000 0018¢ LONG 0 ; 
00000000 00190 LONG ; 
OA 00194 P.ABV: .BYTE 10 ; 
41 56 53 47 4D 49 24 53 59 53 00195 “ASCII \SYSSIMGSTA\ ; 
0019F "BLKB) 1 
42 4C 4F 2€ OO1AO P.ABW: ‘ASCII \.OLB\ 
4A 46 4F 2E OO1A4 P.ABX: ASCII \.OBJ\ : 
45 58 45 2€ OO1AS P.ABY: ‘ASCII \-EXE\ ; 
.PSECT $OWNS,NOEXE,2 
00000000 00000 UNIVSTAR VALID: s 
00000000 00004 LOCAL QUALIFIER: | 
00008 bupyPras -BLKB 4 ; 
OO00C DFLT_NAME: 
a 
itt DFLT_INREL: 
-BLKB 96 
00000000 0016C LAST_FNM DESC: : 
00000000 00170 RLF CONTEXT: ‘ ' 


oL 
00000000 00174 AN_OPEN_FDB: 
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p=198¢ i 


0000 00178 DEBUG pest: 


roe 
om 
ow 


FPF FF ONMOO COMOCO OMOCOCO OMOCO CO we 


B 

C 

0 TOKEN pests" 

¢ -BYTE 
aos 

4 


4 : BL KB 
00000000' , TYPEADR: :ADDRESS DEFILETYPE : 


INF 
-BLKB 
TPDATA: .BLKB 
RSAREMSIZE: | 


oo oo CoOoOoO 
“wo FS 


oo oo ocOoOCoOo 
—— te 


B 
B 
B 
00000000' 00000000' 00000000' 00000000' 00000000 00000000" 00188 IMAGE ‘quiet, ABLE: 

“ABDRESS SD. TRACE SD CONTIGUOUS, SD POIMAGE, - ; 
00000000" 00100 ECT SB_SYSLIB, SO_SYSSHR, ; 


SD: NEADE : 
19 14 OA 17 18 13 12 00104 BIT_TABLE: of 
-BYTE 18, 19, 24, 23, 10, 20, 25 3 


-PSECT $GLOBAL$,NOEXE ,2 
00000 LNKSGL_FILESLEFT 
00004 LNKSGL_ULIBMASK 
00008 LNKSGL_INRELNAM: 
QO00C LNKSGL_RELNAM_EXE:: 
00610 LNKSGL_RELNAR MAB: 
00014 LOR SGL REL NAN SVE: 
00018 LNKSGB_LOCNOV EXE: 


P Bree Buee Hove 
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iBose 90p- tot $3:20,40 


00019 LIKES _LOCNOY AAR st 
0001A peagnage Yh 
00018 LNK_GB -GETCHD SP1: 
0001C LNKSGL_ SYSINBUT _FLAG:: 
00020 LNKSGL ~cUTWORK 


SD_BRI 

SD_CON = 

SD-CROSS_ RENCE= 

$D-DEBUG= 

SD_EXECUTABLE= 

SD-FULL= 

SD_HEADER= 

SD-MAP= 

SD_POIMAGE= 

SD_PROTECTs 

SD- SHAREABLE= 

SD-SYMBOL_TABLE= 

SD-SYSLIB= 

SD-SYSSHR= 

SDSYSTEM= 

SD" TRACE~ 

SD-USERLIBRARY= 

SD- INCLUDE= 

hb 

SD-OPTION 

SD- “SELECTIVE _SEARCH= 

SD-Pi= 

NUCL_DEVICE= 

LNKSGT_JPILST== 

LNKSGT~ IMGSTA== 

LIBFILTYPE== 

DEF ILETYPE== 

SHRF ILTYPE== 
-EXTRN CLI$ 
-EXTRN CLI$ 
-EXTRN CLI$ 
-EXTRN LINS 
~EXTRN LINS 
~EXTRN LINS 
-EXTRN LINS 
-EXTRN STRS 
-EXTRN LIBS 
-EXTRN CLIS$ 
-EXTRN LIBS 
-EXTRN LIBS 
-EXTRN LIBS 
-EXTRN LIBS 
-EXTRN LNKS$ 
-EXTRN LNK$ 
-EXTRN LNK$ 
-EXTRN LNKS 
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P. AAA 
P- AAC 
P.AAE 
P- AAG 
P.AAI 
P.AAK 
P.AAM 
P- AAO 
P-AAQ 

AAS 
P. AAU 
P. AAW 

~AAY 
P. ABA 
P. ABC 
P. ABE 
P.ABG 
P.ABI 
P- ABK 
P. ABM 
P-ABO 
P.ABQ 
P.ABS 
P. ABU 
P- ABV 
P- ABW 
P.ABX 
P.ABY 
_NEGATED, Cil$_LOCNEG 
“DEFAULTED, ree eat LOCPRES 
“PRESENT, L 
“CLOSEIN atte CRD SYNTAX 
“FIRSTMOD, LINS ILLQUAL VAL 
“LINERR, LINS_NOMODS 
OPENIN. LINS~TRACIGN 
COPY_R, LIBSCOT 1° 
CVT_6T6, LiBscvT HTB 
PRESENT. CLI ScETTV VALUE 
FIND FILE, LIBSFIND_FILE_END 
INSERT_TREE 
LOOKUP TREE 
TPARSE, LNKSFNDPSCNAM 
ALLOBLK, LNKSDEALBLK 
PROCOPTNS, LNKSF ILNAMDSC 
INSUDF SYM, LNKSINSERT 
CLOSEFILE. LNKSOPENLIB 
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12880 14- 3e0-19 4 93:25 :40: ‘$3 LINKER. SRCJLNKGETCMD.B32;1 . 3 
.EXTRN LNKSSEARCH LNKSGL AI INCLST | ; 
-EXTRN LNKS$GW_STACK, LNK gL CURF IL | ; 
«EXTRN LNKSGL-CTLMSK, LNKSGC_LASTCLU : 
-EXTRN LNKSGL“CLULST, LNKSGL-DEFCLU | ; 
EXTRN LNKSGL-CURCLU, LNKS$GL-CLUTREE | ; 
“EXTRN LNKSGL-FVMLST, LNKSGL—IMGFIL | ; 
-EXTRN LNKSGL“MAPFIL, LNKSGW-NCLUSTERS | ; 
EXTRN LNKS$GW_NSYMBOLS | : 
“EXTRN LNKSGL-SYMFIL, LNKSGL_CCLULST ; 
SEXTRN LNKSGL-PSCDFLST : 
-PSECT $CODES,NOWRT,2 ; 
OFFC 00000 ENTRY LNKSGETCHD Save R2,R3,R4,R5,R6,R7,RB,R9,- 3 0454 
58 00000000v EF 9€ 0000 MOVAB GET_ SYR, R11 : 
SA iatdaittat EF 9E 0 Mi: MOVAB GET“MAP, R10 : 
38 9990000v F Of 0019 MOVAB GET Image : 
é 9006 0 9 0001 MOVAB CLISPRESE Rg ; 
5 909 006 9E 0018 MOVAB LNKSGL Der cus 6, R? : 
36 00000000' EF 9E 000 MOVAB EB0G ; 
5 90000000" FF 9E 000 g MOVAB Srey 3 ooegce ; 
54 000000006 00 9 i MOV DNKSEC. Fence: R4 : 
3E 08 C2 0003A SUBL2 #8, SP~ ; 
5 04 AC 00 0003D MOVL  ARGLIST, RO + 0476 
51 18 AO 01 EF 90041 EXTZV #2, #1, 24(RO), RI : 
01 AG 01 04 FO 00047 INSV RI. #4. #1 LNCSGL _CTLMSK+1 ; 
3c. ASS 7A BF 90 00040 MOVB W1b2" RSAREMS + 0478 
C AS OF 90058 PUSHAB NEXTRSA + 0479 
7E € AS 9a 0005 MOVZBL RSARERSIZE_ -(SP) : 
000000006 00 : FB 00059 CALLS #2, LNKSALLOBLK : 
D4 9060 CLAL + 0486 
40 A542 DD 00062 18 PUSHL IMAGE QUAL TABLECII + 0487 
6 01 FB 0066 CALLS cCCISPRESE ; 
5 5C A542 9A 0006 MOVZBL eit tas ABLECI NR3 : 
64 01 § 50 £9 O06 INSV R3, #1, LNKSGL_CTLMSK : 
EB 52 06 £3 0007 AOBLEQ #6. I, 1 ; 
0008 +466 OOF 90077 PUSHAB $D_USERLIBRARY + 0489 
68 o1 FB 0078 CALLS 46 CLISPRESENT : 
07 0 €9 0007E BLBC R : 
00000000v_ EF 00 FB 00081 CALLS ; SETUSERLIB + 0490 
00B4 C6 OF 00 2$ PUSHAB SD. E : 0492 
68 1 FB 0008C CALLS #17 CLISPRESENT ; 
05 0 9 F BLBC iy : 
64 BISB2 #8, LNKSGL_CTLMSK > 0494 
C 09 BRB 4s > 0495 
70 Ad 9F 00097 3$ PUSHAB HARE ABL : 0499 
be 1 FB O9A CALLS I PRESENT ; 
11 0 F 09D BLBC : 
64 4 88 OOOA BISB LNKSGL CTLMSK : 9501 
64 000460002 8F CA OOOA3 4$: BICL ; 46 LAKSGL pC TLMSK : 0502 
N0000000V EF 0 FB OOOAA CALLS SPECIAL > 0504 
6 DD 1 5$: PUSHL : 0507 
68 1 FB CALLS #1. CLISPRESENT ; 
F Q t BLBC : ; 
DD 0008 PUSHL > 0509 
6 DD 00088 PUSHL 6 : 
} 


7 
| 
; 19| 
-Sep- 257: AX-11 Bliss-32 V4.0-74 Page 
vives aia 18-sen-1 Hn 13:25:40 LINKER. SRCILNKGETCMD .B2: 1 (4) | 
$GET_VALUE ; ; 
_oneers 9° 40 ; 4B a gieks ; 4, tk GL CTLMSK ; 519 
5 FB O00CB 6$: CALLS 40, GET IMAGE i 9315 
ba Fe ce Atte #0. GET"SYM ; 515 ; 
ee F MOVL #1, LOCAL_QUALIFIER : : 
F C D D i 0317 : 
58S F F D6 7$: CALLS #0, GET_IRPUT ; 
es £8 DD BLBC —._ «aR; F ease 
REALE FE: St ayo i pue] |: 
ea ft Es CALLS s * GET-SYM ; a8 
‘ : 0526 ; 
NTEXT : ; 
OR A Bape ie Be crete se oe het! 
saceenpnt $¢ EF OOFS EXTZV #3, #1, LNKSGL_CTCMSK, RO : ; 
20 ge : 3 EF OOOFA EXIZY 2, a, LNKSGL~CTLMSK, R1 
2 lw OUR ORR OBE BEB seconcenon, a oss) 
52 35 5 OOK faa’ RS: 5. #1, LNKSGL_CTLMSK Fires : 
- oh be 04 eI 010F BBC #4, LNKSGL_CTLMSK, 11$ ; 0538 
68 - of FB O18 CALLS. #17 CLISPRESENT ; 
4 ° i ; * LNKSGL_CTLMSK+1 + 054 : 
og PRB Bie ah ase ree gg) 3 
OF Fe 00188 CALLS he CLISPRESENT ; : 
re a Rs ee | 
+ * LNKSGL_CTLMSK+1 : 
a Rat RE oF 604 1 Pornke 5° ROSS REFERENCE : 0549 
ae hae CALLS” hoe SPRESENT 
Vee ps 
r NKSGL_CTLMSK 2 
tf a i att rh Bac. sasebr Lace Sinene’, 428 : Seat 
3 ON ' ft ASE, R > 0562 
$B agus BB Gy At RPE Bhan 3 
Re bo Oo1se 128: BOVE STS TEMBASE LNKSGL_DEFCLU+76 + 0563 
$f 80 60 1 ? 18: movt LNKSGL_FVMLST, Hi . : 0567 
gy Seeeeeers 00 Mi 0166 : MOVL LNK$G mae R1 : 0565 
ar $f D1 00169 CMPL sR #1078741 826 
mapnnatense! 4d 1D 1F 001 BLssu 158 Pe 
51 D1 001 CMPL = R1, #-2147483648 ; 
cates A 1F 001 BLSSU 148 pe 
0 0017 MOVL #-2147483648, 4(RO) 
04 ad 80000000 F BO 001 HOV i tae eee 
73741 4, o 
04 a0 40000000 00 185 148 MOVL sot] : 0368 
1 BRB 16 : 0368 
Bee 06 pS bOlSe tek, | FETE PIRSTCLUSTER : 0576 
900000006 93 $3 bores anes cain 
Bc A ' 13 IsTL LNKSGL_DEFCLU*8 ; 
000000006 er DD 19 PUSH H INS NoMODS 0580 
000000006 00 1 FB OO1AS CALL ‘ 


6 
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Oe =600 127808-138 93:20:48 LINKER. SRC LiKGe TCAD 82:1 ° (3 
4 64 £0 lac 17$: BBS #3, LNKSGL_CTLMSK, 18$ : 0590 
4 64 ; 1B BBC #2, LNKSGL-CTLMSK, 19$ : 
02 Ad A 00184 188: BICB2 #4, LNKSGL~CTLMSK#+2 + 0591 
5 64 EO 00188 19$: BBS #6, LNKSGL-CTLMSK, 20$ + 0593 
F 02 AG E1 18¢ BBC #2. LNKSGLCTLMSK #2, 33$ : 
D AG £0 OO1C1 208: BBS # SGL~CTLMSK+2. 21$ : 059 
oo0000006 99 0000S BF PR Bate CAS # In sei deat heat 
she 1 amd 18 
i a a 
00000000v_ EF 33 FB 001DD CALLS #1, INPUTFILE : 
FB OAS «OOF OO1E4 PUSHAB RLF CONTEXT + 0603 
000000006 00 1 FB 001E7 CALLS #1, LIBSFIND_FILE_FND : 
8 ee : O8O9 
8 AE er Sit PUSHAB SYMVAL : 
0150 cé oF OO1F PUSHAB LNK$GT_IMGSTA : 
000000006 00 : FB 001F9 CALLS #3, LNRSSEARCH : 
8 if 4 8 09 PYSHAe SYMVAL _—_ 
0188 C6 9F 0020 PUSHAB LNKS$GT_IMGSTA : 
000000006 00 03 FB 00209 CALLS #3, LNRSINSERT : 
04 AE DD 00 19 PUSHL SYMVAL > 0611 
000000006 00 gi FB 0021 CALLS #1, LNKSINSUDFSYM : 
000000006 00 86 O21A INCW LNKSGW_NSYMB > 0612 
01 AG 10 8A 00220 23 BICB2 #16, LAKSGL_CTLMSK+1 > 0616 
00000000V_ EF 00 FB 00224 CALLS #0, LNKSCOLCECTPSCT 3 0618 
BC ay : 0 B Ist NKSGL_DEF CLU8 + 0620 
50 000000006 60 D0 00 6 MOVL §LNKS$GL_LASTCLU, RO > 0622 
60 B4 A? 9E 00 MOVAB LNKSGL~DEFCLU, (RO) : 
B8 A7 30 p 6 mov RO, LNRSGL_DEFCLU+4 : 0623 
B8 A7 000000006 09 9E 00241 MOVAB LNKS$GL_CLULST, LNKSGL_DEFCLU+4 > 0624 
000000006 00 B4 OA 4: ° 49 348 MOVAB LNKSGL~DEFCLU, LNK$GL~LASTCLU : 
16 03 AG 0¢ E 1 25$ BBC #2, LNRSGL_CTLMSK+3, 26 : 
11 FE8B EB 00256 UNIVSTAR VALID, 268 + 0629 
00000000G 8F DD : 8 PUSHL aL INS UNIVSTAR : 0631 
000000096 00 1 FB 00261 CALLS #1, LIBSSIGNAL ; 
03 AG 4 BA 0268 BICB2 #4, LNKSGL_CTLMSK+3 : 0632 
4 0026C 268: : 06 


; Routine Size: 621 bytes, Routine Base: S$CODE$ + 0000 


; 525 0636 1 


oO 
aon 
cow 


6 
1Eosepmt9Rs 25:57:45 YANG] OL ieg32 ye 0-748, 


routine clierror (desc,errorcode) : novalue = 


LNK_GETCMDINP 
voe=060 


! This routine is called oy result parser if it detects any error in this 
! command. reqestdesc is the address of the current parameter descriptor and 
! errorcode is the encoded reason for the error. 


DSS 
ViFWn—O0O~ 


desc : ref block C,byte] ; ! Pointer to a block 
signal_stop (Lin$S_cmdsyntax, O0,Lin$_linerr, 1,desc Cdsc$w_length], .errorcode) ; 


end ; 


0000 00000 CLIERROR: 
7E 04 AC 7D 00002 MOVO DESC, =(SP) 


1 OD sit PUSHL #1 
000000006 8F DD 44 PUSHL #LINS_LINERR 
E D4 it CLRL ° 
00000000G 8F DD 0001 PUSHL #LINS_CMDSYNTAX 
000000006 00 06 fe Beoie te #6, LTBSSTOP 


; Routine Size: 30 bytes, Routine Base: S$CODE$ + 026D 


; 543 0653 1 


0637 
0650 


0652 


6 
ep-1984 23:57: AX-11 Bliss-32 v4.0-7 
Het 93:27:93 LINKER. SRC LNNKGETCMD. 4 2;1 


Le Ae) iP 


routine call_tparse (string,states,keys) = 


This routine calls TPARSE given the string, states and keys 


i 

i 

Inputs: 

i STRING address of string descriptor for string to parse 
! STATES address of tparse states table 

! KEYS address of tparse keys table 


string : ref block C,byte] ; 


statu 
tpablock : block Ctpa$k_lengthO,byte] ; 


SERESeEE RESET O CS 


=POIPINIPINIPSNYADINPINIPUNINININPIPIPIPIPUPINYAS RD 9 tt tt SS ee 

vc = - fs 

v0vo o fe 

oo a @D 

co oe 

-—- _ 

oo 

on 

rer 


ooo 
AAO 


: Initialize the tparse block 
ch$fill (0, tpa$k_lengthO, tpablock) ; 


Heat count] 


= tpaSk_countO ; 
tpa$l“options) _ = tpaSm_ “Tase$ : 
= 
= 


tatatott tt tt 
COOOoN NNN 
MEW —O DOONOU FS Ww 


DO SIN NNN SNP PAA AAA AA AA MII PPE 
pot IPN PS NE Oe TE ey A tte ee uw 


See Oe Se Ge Se Se Se Ge Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Gee Se Se FHS Se Se Se Se Oe Se ee 


5 
5 
3 tpablock Ctpa$l“stringcnt -string Cdsc$w_length] ; 
5 tpablock Ctpa$l“stringptr -string Cdsc$a_ “pointer] ; 
3 O68, 3 
5 B08 Initialize own storage used 
; et tpdata = 0; 
689 return Lib$tparse (tpablock, .states, .keys) 
5 0690 end ; 


003C 00000 CALL_TPARSE: 
.WOR 


Save R2,R3,R4,R5 
5€ 34 c2 : SUBL 5 , SP 
24 00 bE 0 3 movcS #0, (SP), #0, #36, TPABLOCK 
6E os D MOVL re: TPABLOCK 
Ar D MOVL ‘ eat Ck+4 
5 04 =A p MOVL 
08 AE 6 ¢ 1 MOVZWL tno wry 
C AE 4 ad Dd 1A MOVL ROS roan oeK 12 
00000000' EF pA 1F CLRL TeDAT TA 
7E AC 7D 3 OVO STATES, -(SP) 
F PUSHAB TP x 
000000006 00 i ¢ L #3, LIBSTPARSE 


<- 
cz 


Peace te ee F* Se ee te ee 


voes860 IRES0c19EE GH:EGi95  WMaLdnP4ARScdzed bs 74Bo. ee ae 


; Routine Size: 52 bytes, Routine Base: SCODE$S + 0288 


; 582 0691 1 


nsideaianaiaifinliapetnumaaiadipeeimemmiaaitibuatatmadeientieiedtite + 
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1007050 12286871382 $3:20:46 LINKER. SRC [ieGE TCAD 69231 . 3 v04 
: : § } routine specialimage : novalue = : 
: 6 4 1' ; 
3 95 1! : 
5 38 1! This routine is cot tee by the CLI if the system or shareable image qualifier : 
; 4 4 1 S$ seen on the primary output parameter. ; 
; 591 39 1! If @ value is present on the qualifier, the CLI is re-called through CLIADDR ; 
3 3 » 1! to convert the yelup which then sets the base address of the default cluster : 
; 59 7 1! of the image being linked. If no value is present the base address is set ; 
; 594 7 § 1! to the lower end of system or erpcoss space. In both cases the stack size is ° 
; 595 7 1! set to zero. A system image will not but a shareable image will have a : 
: +] f : : } header. ° 
: 598 706 3 i 
; 599 7 begin : 
; 600 708 Local : 
; 601 709 symbolstring : vector Csym$c_maxing+1, byte], ! Base address syapot storeage : 
; 60 710 nament : ref block p-byted. ! Pointer to symbol name block : 
: ret arts symtabent : ref block C,byte] ; ! Pointer to table entry for it ” 
: 605 or§ ; 
3 o8 gilt ink$gw_stack = 0 ; ! Init stack : 
: 608 216 2 if .LnkSgl_ctimsk Cink$v_shrJ ! If a shareable image 3 
; 609 71 then 3 
; 610 718 begin : 
; «6611 719 cli$get_value (sd_shareable, share_desc) ; ! then get name now 3 
3 ole 0720 return ; ! ALL done with /SHAREABLE... : 
3; 6 0721 end ; 3 
> 614 07 § 3 
; 615 07 if .lnk$gl_ctlmsk Clnk$v_sys] ! If a system image : 
: 616 OF : then Lnk$gl_fvmlst Cfvm$l_address] = system_space ; ! Set first available virtual memory : 
; 618 726 if not cli$get_value (sd_system, token_desc) ! If there was no qualifier value 3 
3 oi? 4 i. then return ; ! Then all done : 
; 621 oF 9 ink$gl_defclu fclugv_besed) = true ; ' Set the bit for fixed in address space ; 
; 6 § 8 9 snksat ctlmsk Cink$v_picimg]) = false ; ! And image is not pic 3 
; ° ? y basedfTag = true ; ; 
: 625 $F 4 if .(.token_desc Cdsc$a_pointer])<0,8> eql %c'%' ! If value for the base was prefixed with ; 
3; 6 $ 734 then ' ai, then we definitely have a numeric 3 
; 6 735 begin ! base -- find out the radix 3 
: ? 3 local status ; ; 
; ° . 4 } selectone -(.token_desc Cdsc$a_pointer]+1)<0,8> of ! Base specified as %? ; 
3 s A 
; 6 § 740 fte'x') : status = Lib$Scvt_htb (.token_desc pdscéu_ length) -2 ! Value is in hex : 
; 6 741 --token_desc ([dsc$a_pointer) + 2 : 
3 ? : eg systembase : 
: 6 744 [%c'D'] : status = LibScvt_dtb (.token_desc bdsc$u. length) -2 ! Value is in decimal ; 
3; 6 745 --token_desc Cdsc$a_pointer] + 2 : 
3 ° 3 oe systembase : 
; 640 0748 [%c'O'] : status = Lib$cvt_otb (.token_desc Cdsc$w_length] - 2 ! Value is in octal : 


OFFC 00000 SPECIALIMAGE: 
- WORD 


6 
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; 641 74 »-token_desc Cdsc$a_pointer] + 2 ; 
: e$ f systembase : 
; oc 7 § Cotherwise) : clierror (token_desc, Lin$_illqualval) ; ! Anything else is illegal : 
; oh? i tes ; : 
3 $c3 755 if not .status ! If error occurred in value conversion, ; 
3 ons 7 § then clierror (token_desc, .status) ; ! report it here . 
; 64 7 end : 
; 650 7 else ; 
3 62) 7 ! ; 
3 ° § 160 Didn't explicitly specify a radix -- assume decimal : 
: O28 t6¢ a7 not LibScvt_dtb (.token_desc Cdsc$w_length], .token_desc ([dsc$a_pointer], systembase) “ 
° en e 
; 636 764 begin ! However... if puked on conversion y ° 
; 65 765 4 if (symbolstring [0] = minu (.token_desc Cdsc$w_length] ! atten the we must assume ; 
; 658 7 4 sym$c_maxing ! a sym olic bese value : 
; 659 0767 4 j ; 
; 660 768 ) eql 0 : 
; 661 769 n ; 
3 666 770 return ; ‘ 
+ 66 771 : 
; 664 77 ch$move Sopysbetase ing (0) : 
; 665 77 --token_desc apg tapotaters ! Otherwise build a counted : 
; $66 oe symbo[string (1) ' Ascii string that long , 
; 668 77 ink$search (symbolstring £0}. symtabent, nament) ; ! Then search for place to insert it 3 
: 669 077 ink$insert (symbolstring [0], symtabent, nament) ; ! and do it 2 
; 670 144 perp wneusreya (.symtabent) ; ! Insert undefined symbol ; 
; 671 77 tnksov_nsye ol = .lnk$gw_nsymbols + 1 ; ! Count as one more symbol ; 
; 676 0780 ink$gl_defclu CcluSl_base] |= .symtabent ; ' Save the symbol table adress ; 
; 67 44 ink$gl_defclu CcluSv_symbas] = true ; ! Flag as symbolic : 
3; 674 4 end ; ! And all done till it is defined : 
; 675 07 return true ; 
; 676 0784 end ; : 

Save R2,R3,R4,R5,R6,R7,R8,R9,RI0O,R11 ; 0692 : 

58 AQ AF 9 902 MOVAB CLIERROR, 11 ; ; 

A 06 E MOVAB LIBSCVT_61B, R10 ; ; 

9 G 9E 00000 MOVAB CLISGET VALUE, 3 : 

7 G E 14 MOVAB LNKSGL_BEFCLU+ R8 3 : 
G E 0001 MOVAB LNKSGL-CTLMSK, R? ; 3 | 
6 000 * EF MOV TOKEN DESC, Rb ; 3] 
E C SUBL #40, SP 3 3 1 
000000006 & CLRW = LNKS$GW STACK : 0714 3] 
0D 67 1 BBC #2, LNRSGL_CTLMSK, 1$ ; 0716 3 | 
FS A6 OF PUSHAB SHARE DESC ; 0719 3 | 
00000000' Fe F PUSHAB SB _SHARE ABLE 3 3 1 
9 2 fe F CALLS #2, CLISGET_ VALUE 3 ) 
0 ¢ RET 2 orig 3 1 
OF 67 03 €1 00043 1$: BBC #3, LNKSGL_CTLMSK, 2$ : 072 31 


P= Rei eeieeeeeeeeee eeleeeeaeeeas a as s = 
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LNK_GETCMDINP 
04000 


voasb60 Sager GH045 UNGER so, ne oti 


; Routine Size: 322 bytes, Routine Base: $CODES + O2BF 


; 677 0785 1 


5 08 ie oh Of move L LOS BOL STRI ING, RO * 0772 ; } 
09 AE 04 be sb 8 001 d noes RO, @TOKEN_DESC+4, SYMBOLSTRING+1 : 0774 31 
E DD 001 PUSHL SP : 0776 i | 
08 AE 9F 001 PUSHAB SYMTABENT : ; 
10 AE 9F 001 PUSHAB SYMBOLSTRING ; 3 | 
000000006 00 : FB 0011 CALLS #3, LNKSSEARCH : 7 
id pp 1A PUSHL SP + 0777 4 
08 AE 9F O011C PUSHAB SYMTABENT : 31 
1 AF OF OO11F PUSHAB SYMBOLSTRING : 31 
000000006 00 03 FB 001 3 CALLS #3, LNKSINSERT : 3 
04 AF DD 001 PUSHL  SYMT + 0778 3 
000000006 00 0 FB 001 g CALLS #1, LNKSINSUDF SYM : 3: 
000000006 00 BG 1 INCW LNKSGW NSYMBOLS + 0779 3 
F4 ag 04 AE DO 00139 MOVL VMTABENT. CNKSGL DEF CLU+76 + 0780 3 
6 02 88 0013€ BISB2 i LNKSGL_DEFCLU788 + 0781 71 
04 00141 108: —RET + 0784 : 
3 | 
3 | 
a 4 
a4 
es 
S| 
3 1 
3 | 
- 
s 1 


LNK_GETCMDINP 
1067000 14-Sep-19 


52 00000000' 
50 
04 


28: oo 
00000000' 


NmMLoOo £O 


5 
1 
000000006 p 


4 
000000006 3$: TSTL 


50 ted * ty 
0 


FEF EAI OS SSS 
TONS OWN VN MDONLSNWOSO 

o 

> 

- 

= 

“ 


0D 


DO FO" DOW1O M NVM F MOOCOOmM 
ADOC ONO MNOOONWUOM COMIN 
SC OMMOWMUID OW CONVO NUNS —Onryuin & 
COOOCSCOCGOOOOSOOSS OOCOOSOOSooO 
SOOOSCSOSCOOOSOOOOS Sooo ooooo 
SOOSOCOOSOCOCCOSOOOCOCOOOCOoOooooooe 


om—0o9 —-VT om. OMoU—-909 -9 — 00O 


2 
000000006 


15-Sep-1984 43:27:43 AX-11 Bliss-32 V4.0-74 
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It is important to know 
whether or not we were called 
by lnk$procoptns in order to 
know who should do the 
parsing -- the cli or me 


If no preceding clusters 

les in current cluster 

And not explicit inclusion from the 
File give up with an error 


Set address of default file type 


3 678 , § } global routine ink$setlibrin (option_flag) +: novalue = 

: oe) BS i 

; rat 790 1: This routine is called by the CLI if the LIBRARY input file qualifier is 
3; 6684 791 1°! seen on an input parameter. 

: Oke F38 ji 

: 68 794 2 begin 

; 688 795 builtin 

; 689 re nullparameter ; 

; 690 79 local 

3 $3) re called_by_option ; 

; o07 0800 called_by_option = not nullparameter (1) ; } 
; 695 4 if not .called_by_option i 
; 696 080 then if gl iseresent (sd_include) ! 
; oof Bebe then infilflgs = .infilflgs or fdb$m_libextr ; ! 
; 699 0806 if .Unk$gl_clulst (0) eql 0 
; 700 080 and + ink oot curclu Eclu$l_fstfdb] eql 0 ! And no fi 
; 44 3 and (.infilffgs and fdb$m_Tibextr) eql 0 ! 
3 n 

; ee Baio signal_stop (Lin$_firstmod) ; ! 
: 705 081 typeadr = ch$ptr (Libfiltype) ; ! 
; 706 oFi8 2 sate 3 e 

; 707 0814 1 end; 


1 
LNK$GL_CLULST 
LNKSGL_CURCLU, RO 

(RO) 


LNKSSETLIBRIN, Save R2 3; 0786 
INFILFLGS, R2 3 

(AP) ; 0800 
1$ 3 

#1, RO ; 

2s : 

RO : 

4 (AP) ; 

2s ; 

RO : 
PALLED BY OPTION. Se : 080 
SD_INCCUDE ; $b08 
ih CLISPRESENT : 

RO : 

#64, INFILFLGS ; 08 


#6, INFILELGS. 48 
#LINS_FIRSTMOS 


LNI 
vO! 


000000006 09 00000000' Er oF B908 


he 0-198 


#2346 


ii 
Ret 


<7 
TCMD.B32;1 


LNI 
V 


LNK_GETCMDINP 
1be7650 


; Routine Size: 


SNS 
NR 2 a 


MO OONOUNE wr 


723 


ANAOUNE WN OOONO 


=—2FORITOROR @ ee 


routine optionfile : novalue = 


'¢ 
' 


; Set the default file type for Link time options 


fe 
begin 
bind 


typeadr = ch$ptr (optfiltype) ; 
return ; 


optfiltype = uplit (byte (".OPT')) ; 


end ; 

-PSECT 
54 50 4F 2E€ OO1AC P.ABZ: .ASCII 

OPTFILTYPE= 
-PSECT 
0000 00000 seen | 
00000000" EF 00000000" EF 9E 00002 MOVAB 

04 0000D RET 

14 bytes, Routine Base: S$CODES + 0464 


0829 


1 


AX-11 Bliss-32 FY ted 
LINKER. SRC JLNKGETCMD.B52;1 


SPLITS,NOWRT ,NOEXE ,2 
\.OPT\ 
P.ABZ 


SCODES,NOWRT,2 


Save nothing 
OPTFILTYPE, TYPEADR 


LNK 

Page (3 v04 
; 0816 
; 0826 
; 0828 


te 


] 
7 | 
LNK_GETCMDINP 1$-sep-1986 23:57:45 VAX-11 Oi leer ee V4.0-74 Page 31, 
v04=000 14-Sep-1984 12:40:30 CLINKER.SRCILNKGETCMD.832;1 ord 
; f 5 08 ? ! gicbal routine Lnk$setshrblin +: novalue = 
i 958 Bs Te | 
; 728 . | | 
; 9 Be 2 : ; Set the default file type for shareable images. 
: 731 O83 | i. 
oe § 8 begin 
: 8 3 typeadr = ch$ptr (shrfiltype) ; ! Set default file type pointer 
; 73s 0860 return ; 
3; 7 0841 end ; 
0000 00008 «ENTRY LNKS$SETSHRBLIN, Save nothing : 0830 
00000000" EF 00000000' EF 9E 9000 MOVAB SHRFILTYPE, TYPEADR ; 0838 
04 00000 RET ; 0841 


; Routine Size: 14 bytes, Routine Base: S$CODE$ + 0472 


737 0842 1 


7 | 
vos2000 Eso GHESSG  WMatbaPbARNc RPh fS7ARe Page is 


; 739 43 1 routine setuserlib = 
; 740 44 1 
; 74) 45 1 !¢4 

; 74 rk} 7! 

; 74 47 1! This routine is called by the CLI for the cysem. ena Opp irner 

> 744 rk: 1! The default is /USERLIBRARY= (PROCESS, GROUP, SYSTE fH 

; 7465 49 1! is @ List of logical name tables, only those eabler ioe fied” will 

; Og 0 1! be searched. 

s 76 > ee 

; 748 § 1 

>; 749 begin 

: 750 54 

: 751 55 ink Sgt. ctlmsk Clnk$v_usrlib] = tr 

: P36 8 2$ nt le tTlLi$get_value sd userlibrary,: token_desc) ! Loop for all specified 

3 ) 

3 Pee 0858 179 Token. desc Cdsc$w_length] neq 0 ! If a string was there 

3 e 

3 £36 peer if not call_tparse (token_desc Cdsc$w_length], userlib_states, userlib_keys) 

; en 

:; 758 Bag clierror (.token_desc, Lin$_illqualval) ; ! No return from this 

; 759 086 end ; 

; 760 0864 

: 761 0865 if .lnk$gl_ulibmask eat 0 ! If nothing found 

; 76 0866 then Lnk$gl-ulibmask = ! Then enable all logical name tables 
; 76 0867 else ~ Lnk$gl_ulibmask lss 0 ! will be lss 0 if 7USERLIB=NONE 

: 764 0868 then Lnk$gl-ulibmask = 0 ; 

: 765 0869 

; 766 0870 return true ; ! 

; 767 0871 1 end ; ! of setuserlib 


Q000C 00000 SETUSERLIB: 
WORD 


‘ Save R2,R3 > 0843 
53 00000000" EF 9E 00002 HOVAB  LNKSGL-ULIBMASK, R3 ; 
32 00000000° EF oF 00009 MOVAB TOKEN N_BESC, ; 
000000006 0 40 &F 8 90010 BISB2 #64, CNKSGL_CTLMSK+2 > 0855 
2 DD 00018 1$ PUSHL R + 0856 
00000000" EF 9F OOOIA PUSHAB SD _USERL IBRARY : 
000000006 F 9 CALLS #2. CLISGET_VALUE ; 
E BLBC : : 
é 8 A TSTW TOKEN, DESC : 0858 
EA C BEQL Sst : 
EF 9F : E PUSHAB USERLIB_KEYS + 0860 
F OF 0 PUSHAB USERLIB~STATES ; 
DD A PUSHL R : 
FB C CALLS » CALL_TPARSE ; 
E 41 BLBS ; 
F DD 00044 PUSHL OB ds euatva. : 0862 
PB te CALS #2, CCIERROR : 
C if } BRB ; 0856 
D 2s: MOVL NKSGL_ULIBMASK, RO : 
1 6 BNEO ; 
D MOVL #7, LNKSGL_ULIBMASK > 0866 


A cl eee el eel ee eh eel hs eel eh ant te nl anal anal et eel el et eu eh el anal cml al il als ene a ee anal anal al a el el eel nel ll 


vive al 1§-se0-196 13:20:30 Hinde She Siakod temo 642; 1 Page 4H 


: 


4 B BRB 4 ; 
¢ 5 heen: Ge ; Obes 
50 1 Bd 61 4$: MOVL #1, ROM + 0870 
4 00064 + 0871 


; Routine Size: 101 bytes, Routine Base: SCODE$ + 0480 


; 768 0872 1 


s | 
s 1 
s 1 
. | 
2 4 
3 1 
s 1 
s 1 
3 1 
3 1 


LNK_GETCADINP 
v0s=000 
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global routine inputfile ‘desc, option_flag) : novalue = 


This routine is called by the CLI for each file in the command input 
parameter List. 


The routine allocates an internal file descriptor block and then, using the 
input file fab allocated in the command processing driver rouine attempts 
to open the specified file. 


f this is successful, the auxiliary filename block part of our FDB is 
nitialized by RMS. Other useful fields of the FDB (such as the file flags) 
are initialized and then the FDB is added to the FDB List. The file is then 
closed, so that an open by file id may be performed on the file hereafter. 


Failure to open the file at this point is fatal and the Link aborts. 


SRLSARANLESSLSCRANW=S Soe 


possesses 


REQSTDESC is the address of the input parameter descriptor being 
used by the CLI. 
INFILFLGS contains the settings of the input file control flags 


as determined by the CLI and qualifiers used. 


in 
routine get_module ( module_dsc ) = 


This routine plucks the modules out of the include List passed here from 
a and returns the individual module name descriptors to 
npu e 


begin 
local Length, 


33 
Se 
— oe oo 


DONO US WO 


dress = 


NOUS WN —O 


PROPOPORO PONY — et = to 


address, 
remaining_length ; 


module_dsc =: ref block C,byte] ; 


include_list = .lnk$gl_inclst : block C,byte] ; ' Here is the List... 

if .listptr lss .include_list Cdsc$a_pointer] ! If failure to find a module 

then , zeroed the pointer, then 
return false ; ! quit here 


-listptr ; ' Current module is already pointed to 
ch$fail (Listptr = ch$find_ch ! If we fail to find a delimiter 
(remaining length = 

C Tog Lude List Cdsc$w_length] - 

(,listptr - .include_list Cdsc$a_pointer)) 


of *ptete 


) 
then length = .remaining_length ' then the length is what was left 
else length = .listptr = .address ; ! otherwise the length is the difference 


SSSSSSSSSSSSSSBSSOSOS 
DODOODOOOO OOOO OOOOOVOns 


DONO UE 


PoPofnonofonsnonofnons 


QOuFwn—0C0@ 


™~w 


———— —— ~ — -_ 


<- 
Sez 
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: 7 930 ' in the pointers :] 
; 931 if .length lss 0 ! Make sure bodule name Length was > 0 i] 
; , ¢ then length = 0 ; ; | 
: 1 934 listptr = .listptre +1; ! Move ptr 1 char past delimiter : | 
3 § 935 ! (tparse cleans out blanks and tabs) : 
3 9 § str$copy_r ( .module_dsc, length, .address) ; ! Do this because inputfile expects a :] 
; 9 i dynamic descriptor : 1 
; 5 938 return true ; 3 1 
3 0939 end ; 3 | 
$1 
$1 
i | 
on Sone pie cates Save R2,R3,R4,R5 0900 Z 
: ave R2, y 3 ‘ 
55 00000000' FF 9 9002 MOV LISTPTR, R5 : 3] 
F 4 C2 000 SUBL2 #4, SP : i 
50 000000006 4 D 4 MOVL LNKS$GL ime ST. RO 3; 0913 
5 DO 0001 MOVL LISTPTR, R 3 0915 
04 A 2 01 0016 CMPL R2, 4(RO) : 
D 19 OOO1TA BLSS 5 $ 
54 5 00 Beare MOVL Rg. ADDRESS 3; 0919 
51 06 ##A 5 f OO1F SUBL3 R2, 4(RO), R1 ; 0923 
5 60 3C 00024 MOVZWL (RO), REMAINING LENGTH ; 
5 51 c0 00 7 ADDL2. 1, REMAINING LENGTH ; 
62 5 3¢ A 0002A LOCC #44, REMAINING _LENGTH, (R2) > 0921 
2 12 88 BNEQ 1$ : 
51 D4 00 CLRL R1 : 
65 51 D 8p 1$ MOVL R1, LISTPTR 3 
93 1 0 BNEQ 2s 3; 0927 
6E 3 pdOd 000 MOVL REMAINING_LENGTH, LENGTH ; 0928 
9 11 4 A BRB 3$ 3 
6E 65 4 #1 003C ¢ SUBL3 ADDRESS, LISTPTR, LENGTH 3; 0929 
02 18 00040 3$ BGEQ 4$ 3; 0931 
of D4 00042 CLRL LENGTH 3; 0932 
g D6 00044 4$ INCL LISTPTR 3; 0934 
4 0D one8 PUSHL ADDRESS 3; 0936 
04 AE 9F 0004 PUSHAB LENGTH : 
04 0D | PUSHL + tee DSC 3 
00000000G 00 8 fe “rt CALLS #3, STRSCOPY_R 3 
50 1 9 05 MOVL #1, RO 3; 0938 
04 038 RET 3 
50 04 00059 5$ CLAL R ; 0939 
4 00058 RET : 


; Routine Size: 92 bytes, Routine Base: S$CODES + 04E5 


; 837 0940 2 


; Allocate an FDB 
i 


7 
LNK_GETCMDINP 1-se 1984 23:57: AX-11 Bliss -32 V4.0-7 Pa 6 
1047000 1278087 138e 93:20:98 Hiner Seeiincct temo 682.1 943 
39 bind ; | 
? re + = Sfesert Fer ("SYSSINPUT') : $bblock : | 
? Stensel nclude_T = ,lnk$gl_inclst : block t byte) $ ‘ 
§ 5 ae maxoptreclen = 132 ; ! Maximum Length of option file records ; 
5 § desc : ref block C,byte) ; ! Really a pointer : | 
§ § builtin : 1 
nullparameter ; i] 
§ 9 local ; | 
dnm_desc : block iu byte), ' Default filename descriptor : 
0 ¢ enm_ =gest : block ytel, tL LIGSFIND_FILE expended 1) "ihe name : 1 
1 fnm : ref block C,bytel, | File name oogscr iptor n ; 1 
é 4 ritgesbtk : ref block byte ’ | Pointer t : 
5 5 aux : ref bl ck bye ' Auxiliar y tile name block pointer 3] 
24 $ input. fab : block ff ab$c_bin, byte], ' Fab io the file opens. 31 
5 optionrab : block Crab$c_bln, bytel, ! Rab for option file input stream 
23 8 stvcode, ! S$tv value for error output 
5 errorcode, ' Rms error code 
33 ? called_by_ “option 3 ! Set if sailed by Lnk$_procoptions 
called _by_option = not nullparameter (2) ; 
306 ~>Y_op ullp 
5 


ink$allofdb (¢ Go a ag new file descriptor 


Sees 


PBIB EB EMA MNMUPIPPIPYPIPININININIPIPIPINIPIPIPIPPINIPINPIPIPIPIPIPIPIPIPIPIPUPIMPIPIPIPIPIPIPINIPD 


fildesblk ) ; ! 

auxfnb = fildesblk ff db$t_auxfnb] ' Point to filename block part 

fnm_desc = fildesblk Cfdb$ auf THicnsacd : } Point to file name descriptor 
4 copy_desc (desc, fnm_desc) ; ! Copy initial file name descriptor 
fiidesblk Cfdb$b_filflgs] = .infilflgs and not fdb$m_newudf ; ! Copy the flags turning off bit 0 
73 
7 ; If this a library witih explicit module extraction, build the FDB's module List. 
A : Call fLiacer VALUE or GET_MODULE, based on whether or not the file is in an options file. 
79 i 
14 + ee (.infilflgs and fdb$m_libextr) neq 0 ! If explicit module extraction 

"be in 
BS loval prevmodule : initial (0) ; ! Pointer to previous moduie name block 
5 if .called_by_option ' If called a. LEK SPROCOPTNG we must 
then Listptr = include. List Cdsc$a_pointer] ; ! set up List 
88 while (if not .called_by_option then cli$get_value (sd_include,module_desc) 
9 ; else get_module (modulé_desc) 

91 do begin 
4 local currentmodule =: ref block C,byte] ; ' Ptr to current module name block 
94 ink$alloblk {module desc Cdsc$w_length]+5,currentmodule) ; ! site ate space to save name 
95 -prevmodule eql ! If this is the first module, 


Be £57: Z ¥ 
LW GET CRD INP 12-Sep-1984 23:57:45 YAX~11 Bl isg-32 v4.0-74 
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; 38 938 a then fildesblk Cfdb$l_omdlst] = currentmodule 8-8 -8-03 ! then set the pointer in the fdb : 
: ; 99 ? else .prevmodule = currentmodule 10,0,0,0J] ; ! Otherwise, point prev to current 4 
; 39 1 : 8 prevmodule urrentmodule (0,0,0,0] ; ! Reset for next pass : | 
; 1 ; 4 currentmodule 0.0.32.0) = 0; ! Zero forward pointer : } 
3 1 } 2 currentmodule (4,0, 8, = .module_desc Cdsc$w_length] ; ! Move in module length and name e 4 
; $08 \ 5 4 chenove (.module_desc Cdsc$w_length], .module_desc ([dsc$a_pointer], currentmodule (5,0,8,0]) ; : } 
Py eng ; 7 
; 905 1 end ; : 
aes | : ty 
: $08 1 ] :] 
: 101 ! Setup up buffer descriptors and call LIBSFIND_FILE to setup an expanded filename ;] 
; 910 1 \¢ ! consistent with the stickiness rules for related file names and search Lists. . 
: Si2 1014 : 
; 318 A infilflgs = 0; ! Reset file flags a | 
: 915 1019 dnm_desc Cdsc$w_length) = typelen ; ! Setup default filename descriptor 3} 
; 218 94 dnm_desc Ldsc$b_class = dsc$k_class_z ; ! for call to LIBSFIND_FILE 3! 
; 91 101 dnm_desc dsc$b_dtype = dsc$k-dtype-z ; -) 
: 318 18 Y dnm_desc Cdsc$a_pointer] = .typeadr ; 
; 920 18 § enm_desc Cdsc$w_length) = 0; ! Init result filename descriptor 3 1 
3 921 10 enm_desc dsc$b_class] = dsc$k_class_d ; ' for call to LIBSFIND_FILE : 1 
3; 9 ; 1024 enm_desc qsc30_dtype = dsc$k_dtype_t ; 

3 18 5 enm_desc [dsc$a_pointer] = 0 ; 

: 925 10 ; errorcode = Lib$Sfind_file (.desc, enm_desc ! Determine resultant name 

3; 9 8 1028 . elf context, dnm_desc 

: 9 1029 . 0, Stvcode, treft3) 

3 4 3 1p ? : 5 0, input_fab Cfab$l_stv], %ref(3) 

: 9 1 § if .rlf_context neq 0 ; 

; 333 19 & ng in 

: 9 ¢ 1938 loti rss : initial (.auxfnb Cnam$b_rss)), ! Original ss 

; 9 8 rsa : initial (.auxfnb Cnam$l_rsa]), ! Original NAMSL_RSA 

; 935 1 ess : initial (.auxfnb Cnam$b_essJ]), ' Original NAM$B_ESS 

3 389 + esa : initial (.auxfnb Cnam$l"esa]) ; ! Original NAMSL_ESS 

; 335 1040 ch$move (nam$c_bin, .rlf_context Cfab$l_nam], .auxfn ! Copy NAM block 

3 8z8 ' 1 ch$move (.enm_desc Cdsc$w_length], .enm_desc Cdsc$a_pointer], .esa) ; ! Copy the name 

3 941 1 tg auxfnb Cnam$l_wee) = 9 : ! Init ptr’s we won't use 

3 ang 1044 auxfnbd Cnam$l_rif] = : 

; 94 1045 auxfnb (nam$l_rsa] = .rsa ; ! Re-setup resultant name area 

: 4 1 § auxfnb [nam$b_rss] = .rss ; 

3 5 1 auxfnb (nam$b_rsij = 0 ; 

3 v4 1 8 auxfnb [nam$l_esa] = .esa ; ! Re-setup expanded name area 

; 94 1 auxfnb [nam$b_ess] = .ess ; 

3 ae8 ' 9 auxfnb C[nam$b_esl] = .enm_desc Cdsc$w_length] ; 

; 950 1 fildesblk Cfdb$Sw_usrnamlen] = .auxfnb Cnam$b_esl) ; ' Copy the user's filename 

3 +h 1 fildesblk Cfdb$l_usrnamadr] = .esa ; ! Into the fdb also 

; 952 1054 copy_desc (enm_desc, fnm_desc) ; ! Get a better file name descriptor 


<- 
Cz 


? 
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; 953 1 ' for error message reportin :] 
; : 4 P 1 Sfab_init (fab = input. fab i Intialize the fab . :] 
; P 1 fac = get i For input ‘ 1 
; 4 § P 1 sfop = $qo - 
: P 1 ‘dna = ,typeadr ° 1 
; 9 § P 1 ‘dns = typelen i] 
; 9 P 1 »fna = : 1 
; 960 P 1 efns = aun tnd Cnam$b_esl] :] 
; 961 P 1 ‘nam = .auxfn :] 
; 368 Pp | shr = (upi,get,put) : | 
; 964 1 input_fab Cfab$i_stv] = .stvcode ; ! Restore LIBSFIND_FILE stv value :] 
> 965 i end ; : | 
i 36 1 ' ; 1 
; 1 i a] 
3 369 1 ! If the parse/setup was successful, open the file to obtain the resultant filename, : 1 
; 970 1 i the file i.d., etc. : 1 
; 971 1 ' 3 | 
; 978 1074 ' : 1 
3; 97 1075 if -errorcode ; 1 
> 97% 1 2 then begin i] 
; 975 107 if .fildesblk Cfdb$v_libr) ' Library file ; 1 
; 976 1078 4 then begin ' Library open by name block : 1 
; 9 1079 4 auxfnb Cnam$b_rsl] = .auxfnd Cnam$b_est) ; ! Setup resultant name for map :] 
3 44 1080 4 auxfnb Cnam$b_ ree = .auxfnb C(nam$b_ess] ; ! contents : 1 
: 97 1081 4 auxfnb Cnam$l7rsal = -aux tn nam$l-esal ; :] 
; 980 1 ¢ 4 ink$gl_curfil™ sy mil ' Set ptr to current fdb for the temporary 3 1 
; 981 iss 4 errorcode = Lnkdoment te. (.auxfnb, .an_open_fdb) ; ! benefit of LNKSOPENLIB : 1 
; 98 1084 4 rata curfil = 0 ; ' Must now clear it -- causes problems i] 
; 98 1085 4 en ' Later if non-zero : 
3; 984 10 4 else b ' Not a library file 3; 1 
: #985 10 4 mag oy be P = ink set ‘tea 3 3 ! Close a file if we're near the Limit 3 1 
; 986 19 8 4 . ink$gl_ ileslett ; 1 
; 1089 4 i eq 0 S| 
3 44 1990 ‘ then reef tosetile -an_open_fdb) ; : 1 
; 990 1092 & rb -fildesblk Cfdb$v_shrJ ! If shareable image, gotta do: 3 1 
; «991 109 hen begin 3 1 
; 99 1094 input_fab Cfab$v_sqo = false ; ' Not sequential only 3 
; 99 1095 input_fab fabsv. are = true ; ' Record and block steiaan 3 | 
3: 994 1 input_fab [fab$v_ =upi = true ; ' Shared access 3 | 
3; 995 193 input_fab Cfab$v_shrget] = true ; ' Set for shared 3} 
3 pas 1098 input_fab Cfab$v-shrput) = true ; ! and puts (Lin a “docen"t write to 3 1 
; 99 1099 4 end ; ! it, but must set so we can read it 3 
: 998 11 4 ! in case installed /write) 3) 
; 999 1101 4 errorco = Sopen (fab=input_fab) ; ' Do regular Sopen 3 | 
3 1900 i § 4 Fitdesbtk Cfdb$w_ifi] = .input_fab Cfab$w_ifi] ; ! Remember IF I : 
3 : § i : ch$nove (asc$c_s_bln, Lnk$filnamdsc (input_fab), .fnm_desc) ; ! Copy better file name descriptor : 
3 end ; ; 

1005 Hor 3 | | 
: 1 11 : ! If ERRORCODE has its low bit set at this point then the 3 1 
; 100 11 i file open was successful. : | 
; 1008 1110 } .% 
3; 1009 1111 : 3 | 


? 


062000 VEsteoctgae GEEG345 WM 


Ss 
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if not .errorcode f either of the opens was a failure, 

hen save status and flag 

gfue i0 input related name for output 
les if not done yet 


X- 

I 

then ptvcode = input. fab Cfab$i_stv] it 
else begin $ 
-ink$gl_inrelnam eql 0 f 


then if ES hs (1,.fnm desc, dflt_inrel, dflt _name) 
g 


> 


3 3 111 

3 111 

3 1 111 

3 1 1115 

3 3 1118 

3 } 5 1) then Ln nrelnam = df(t_inrel ; 

3 3 ; 111 if not .called_by_option 

3 : 8 i then Last_fnm_désc”= .fnm_desc ; 

; 1020 11 if not .fildesblk Cfdb$v_option] 

; 1021 11 4 then begin 

3 3 § 11 4 : 

3 3 1125 4 ! 

3; 1024 11 : 4 ! Not an OPTIONS file. Siagt y,3¢ enteh the FDB at the end 

3; 1025 11 4 : of the current cluster FDB Lis 

ns 

3 19 ; 1 9 ? local lLastfdb : ref block C,byte] initial (.tnk$gl_curclu Cclu$l_lstfdbJ) ; 

3; 10 11 § 4 Lastfdb Cfdb$l_nxtfdbJ = .fildesblk ; ! Put FOB at end of current cluster 
; 193) i 2 ; ink Sgl_ curclu Telust. lstfdb] = .fildesblk ; ! Remember end of List. 
3 1088 1135 4 else begin 

3; 10 11 : 4 ! 

3; 1035 11 4 ! 

; 1036 1138 4 ' OPTIONS file. Connect to it and process the records inside it. 

:; 1037 1139 4 ! The entire contents of the OPTIONS file beg ing anew context for 

3 Ht 1140 4 ' related filename processing - begining with ‘SYS$DISK:(J'. 

3 103 1141 4 ! 

3 1040 1166 4 ! 

3 H's} 1167 ? bind namdvi = auxfnb Cnan$t_dvi] : vector (C,byte] ; ! Addr of nam block dvi 
3 1008 1145 4 ink$gl_sysinput_flag = ! Setup ‘'sysinput"’ flag 
3 1044 1146 H egin 

3; 1045 1147 if .bblock Cingut, fe fab Cfab$l_dev], dev$v_trm] ! Is device a terminal? 
3 166 1108 ? or (eux tne Cnam$v_ppf) ! A process permanent file? 
3; 1048 1150 6 chSeql t. sys input. desc fdscéu. Length) ! SYSSINPUT ? 

3; 1049 1151 6 o-Sysinput desc [dsc$ e pointer 

3; 1050 1136 6 enamdvi (0), namdvi CT 

; 1051 11 ) j 

= 26 1154 then 1 

31 H 113? else 0 

3; 1054 11 § 4 end ; 

3; 1055 1157 4 

3; 1 2$ P1158 4 $rab_init (rab = optionrab 

3; 105 P1159 4 fab = input_fab 

: 1058 P1160 4 ,uSz = maxoptreclen 

3; 1059 P1161 4 rac = seq 

We Fite ae 

: 1 § 1164 5 if not (errorcode = $connect (rab=optionrab)) ' Connect the options file for reading 
3 138? 1392 4 then stvcode = ,optionrab Crab3l_stv 

3 4 11 $ else begin ! And if connected ok 

3 139? By local save_context : initial (.rlf_context) ;  ! Save current context 


a — 
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LNK_GETCMDINP 
04000 


: 1067 1369 ink$alloblk (maxoptreclen, optionrab Crab$l_ubf]) f ! Bs: ocase buffer for records 
3; 1 3 1170 ! p bhock peunger te 

3 3 117 tye peadr vel (defiletype) ; i Reset the defau le tyee 
:% » WW rlf_context i Start how reitated name context 
3; 107 11 Uf tontent ( fnm_desc, a a optionrab) ;! Go process it 

.% i 1174 ntext = .save_cont err ; ' Restore related name context 
; 107 1175 KS gle curclu Lnk$9l_defcl i And reset default as current 
3 : re 1178 ? inks ealblk teaneptretisa, sotienres Crab$l _ubfJ) 3; ! And deallocate 

: 107 117 end Hy : 

.. 3 6 1198 end ; 

3; 1 A: 11 9 

; 107 11 if not .errorcode !' Report any errors 

; 1350 1} § then signal_stop (Lin$_openin, 1, .fnm_desc, .errorcode, .stvcode) ; 

3 1086 1184 ! 

3; 10 ay ! 

3 1084 11 § ! For performance reasons, only close the file if we have to -- if its an Options file 

; 1085 a ! or a shareable image 

3 1058 1188 ! 

; 108 1189 ! 

; 1088 1190 if .fildesblk Cf dosy option) or .fildesblk Cfdb$v_imglib] 

; 1089 1191 then ink$closefile (7fildesblk) 

3 1SRy 1136 else an_open_fdb = *fildesblk 3 

3; 109 1194 typeadr = ch$ptr (defiletype) ; ' Reset the default file type 
; 109 1195 return ; 

3: 1094 1196 end ; 


«PSECT SPLITS,NOWRT ,NOEXE ,2 
O P.ACB: tf  hibcteietial 


¢ P.ACA: “LONG 9 
-ADDRESS P.ACB 


SYSINPUT DESC P.ACA 
TEXTRN SYSS$GETJPI 
*EXTRN SYSSCONNECT 
.PSECT $CODES,NOWRT,2 


54 55 50 4&6 49 24 53 59 53 60180 
00000009 001 
00000000" 001 


o3es8 
oO 


SYSSOPEN 


OFFC 00000 ENTRY AOR Save R2,R3,R4,R5,R6,R7,R8,R9,- 
ce i 9002 MOVAB = ahs 
3 000000006 D 9 MOVL tNCSGL sick, R2 
; 91 CMPBss«C AP), 
1 1 BGEQU§ 1$ 
rT 1 p 1 MOVL #1, RB 
9 1 BRB 2 
8 D4 00018 1$ CLRL RR 
08 A ; 1A TSTL BAP) 
1D BNEO 
D 1F INCL oR 
D 21 2%: MCOML RB, CALLED_BY_OPTION 


roe ff 


1 
? ms =11 Blisg-32 V4.0-742 Page 4! 
Va-Sep-1986 12:00:30 ECTaKeR SRESLNKGET¢RD 682; 1 ise 
LNK_GETCMDINP . : 
= 10 AF PE ganas CAS Fi ENKSALLOF DS : 0970 
woererers as 10 A 08 mOVAB iti AUXF NB : 0971 
5 ie OMA OF ROVAB —20(RI ),, FNM_DESC : 0972 
9 06 =A 06 ° mova ROS. CNM DESC) + 0974 
87 69 7D MOVAB 10(R10), (SP) 3 
6E OA AA 9E 0004 BICDs Fi. INFILELGS, a0(SP) ; 0982 
00 BE 00000000" EF 5 BP oeeee BBC #6, INFILFLGS, 98 ; 0984 
Rear: Phe eae ns a.) 
08 FB hte ROVE SCRDDe“LISTPTR ¢ 0990 
00000000" EF “ 3 08 3 38:  MCOML CALLED_6Y OPTION, 12(SP) 
rh. 06: EF OF ate? an tt nODULE ‘Ec 
sel) a oe ee 
rapacreeytaed 8 i O07 :  BUSHAB MODULE _DESC | 
00000000' i rs Ooee i CALLS ae GET _MODULE Fes 
we ff 0088 6$:  — BLBC E 
rg coool: HERS Rite Giararee 2 
7E 00000000' 6 6 00098 ADDL2 , OBLK : 0998 
gf 3 FB 00098 CALLS #2; LNKSALLOBLK : 9998 
00 MOVL § CURRE 
000000006 90 16 AE 00 00a2 TSTL  PREVMODULE poe 
0 12 G00A8 ROVE RO, (R10) ie 
ai ban 0 M1 Boga : MOVE RO. (PREVMODULED : 1001 
$8 30 DO 00083 8: ~~ AOVL 1 PREVMODULE : 100¢ 
58 60 04 90086 CLRL soe g DESC. 4(RO) heel 1608 
Be. te 000000 8O EE 3 Bntee MOVES RODULEZDESC, aMODULE_DESC+4, : 0999 
tc fachoneenandl” Scaeamannbcy Bi CURL INFILFLGS : 1617 
veneer ak Sa a : 188 
re AD 00000000" EF DO 00009 novt 156621986 ERM_DESC ; Ise 
FC F 00 000E1 Sc+4 : 1029 
FO AD Deve oor AD D4 000E9 cLRL #y,1eCSP) ; 
be isp) : 1027 
oc AE 0 oF 6 i PUSHAB 12(S 
a : 
a a8 PUSHAB RLFCCONTEXT 
00000000" EF 9F O00FB PUSHAS EHM"bESe 
Ae es PUSHL RO 
je op mont’ or Eanbncpe 103 
ete yea | Beit ROVE -ALE_EONTEXT. RO : 
owen Bet fhe ~ 
00 ii MOVZBL 2(AUXFNB), RSS : 1086 
08 AE Bf AB BO Oates OS ouch SCAUNENBS * Rea 


7 
LNK_GETCMDINP ih.se -1984 7:45 AX-11 Bliss-32 V4.0 Page 42 
ya=600 127808- 1382 "3 20:40 LINKER. SRCJLNKGETCMD. i} 2:1 ° at 
04 AE OA A6 9A 00126 MOVZBL 10 (AUXFNB), ESS ; 1037 ; 
5 A 128 MOVL. 12(AUXFNB). ESA + 1038 : 
66 28 80 0060 8F 10F MOVC3 #96, @40(RO), (AUXFNB) ; 1040 : 
6 F4 BD FO AD 136 MOV ENM DESC, @ENM_DESC+4, (ESA) + 1041 : 
30 Ab D4 0013C CLRL 8 (RUXFNB) i 1048 ; 
10 Ab D4 0013F CLRL 16 (AUXFNB) + 1044 : 
04 Ab 58 pO Ibe MOVL RSA, 4(AUXFNB) + 1045 F 
02 Ab 08 A 14 MOVZBW RSS. @(AUXE NB) : 1046 ; 
OC Ab 5 p 148 MOVL ESA, g (AUXENB) + 104 ; 
A Ab 04 AE 14F MOVS ESS, 10(AUXFNB) + 1049 : 
OB A6 FO AD 90 00154 MOVB FNM DESC, 11(AUXFNB) + 1050 ; 
Oc AA 0B AG 98 00159 MOVZBW 11(AUXFNB), 12(R10) i 108¢ ; 
10 AA 5 p 1 MOVL SA, 16(R10) + 105 : 
67 FO AD 7D 0016 MOVG_ ENM.DESC, (FNM DESC) + 1054 ; 
0050 &F 00 6E : 00 2c 0166 MOVCS #0, (SP), #0, #80, $RMS_PTR + 1065 ; 
60 AE 5003 BF BO 0016F MOVW #20483, $RMS_PTR : ; 
64 AE 40 8F 9A 00175 MOVZBL #64, S$RMS_PTR+4 : ; 
76 «AE 4302 8F BO OO17A MOVW #17154, SRs PTR+22 : ; 
7F OA Qe 90 00180 MOVB #2, SRMS_PTR731 ; : 
C8 AD 6 DO 00184 MOVL § AUXFNB SRMS PTR+40 ; : 
CC AD 59 00 00188 MOVL ESA, $RMS_PTR+44 ; : 
DO AD 00000000' EF DO 0018C MOVL =‘ TYPEADR, Shs PTR+48 3 : 
D4 = AD 0B Ab 90 00194 MOVE 11 (AUXFNB 3ahs _PTR+52 ; : 
D5 = AD 04 90 00199 MOVB #4, $RMS_ Me tess : ; 
6c OA 18 AE D0 0019D MOVL STCODE SINR s amet + 1066 : 
0 OC AE ES O01A2 11$:  BLBS — ERRORCO + 1075 ; 
0096 31 O01A6 BRW 17$ ; : 
2c 00 BE 01 £1 001A9 12$: BBC #1, a0(SP), 13$ + 1077 : 
02 Ab 0A A6 B60 OO1AE MOVW  10(AUXFNB), 2(AUXFNB) + 1080 ; 
04 Ab OC A6 DO 0018 MOVL §12(AUXFNB). 4(AUXFNB) > 1081 ; 
000000006 00 5A 00 00188 MOVL R10, LNKS$GL_CURFIL ; 108¢ ; 
00000000' EF DD 001BF PUSHL AN _OPEN_FDB > 108 ; 
6 DD O01C5 PUSHL AURFNB ; ; 
000000006 00 08 FB ic? CALLS #2, LNKSOPENLIB : ; 
OC AE 50 00 OO1CE MOVL RO. ERRORCODE ; ; 
000000006 09 D4 001D2 CLRL - LNKSGL_CURFIL > 1084 ; 
53 11 00108 BRB 16$ : 1077 
7E 7C OO1DA 13$:  CLRQ -(SP) + 1087 
7E D4 0010C CLRL = = (SP) : 
00000000' i 9F OO1DE PUSHAB LNKSGT _JPILST ; 
E 7C OO1E4 CLROQ ; 
43 D4 001E6 CLRL (SP) ; 
000000006 00 0 Fe 168 CALLS 4&7. SYSSGETJPI : 
00000000' FE pi 1E CHL LNKSGL_FILESLEFT, #3 : 1088 
50 00000000" EF 09 pits MOVL § AN_OPEN_FDB, RO + 1089 
9 13 OO1FF BEQL 148 ; 
0 oD 1 PUSHL RO + 1090 
000000006 00 1 Fe 3 CALLS  LNKSCLOS FILE ; 
0B 00 BE 2 t A 14%: BBC ae O(SP), : 1092 
64 AE 4 F BA F BIC(B2 #64, INPUT FAB+4 > 1094 
6 AE 434 F AB 00214 BISwWo #1721 INPUTS _FAB+23 + 1098 
6 AE OF 0 1A 15$: | PUSHAB INPUT FAB > 1101 
000000006 00 : F 1D CALLS #1, SYS$O OPEN ; 
C AE 0 D 0 34 MOVL RO. ERROR CODE : 
4 AA 62 AE B 8 MOVW INPUT_FAB+2, 36(R10) > 1102 


; | 
LINK_GETCMDINP 18-se =1984 23:57:45 AX-11 Bliss-32 V4.0-74 Page 43 
e650 1278 08-1 he 13:25:40 ey KER Shei http B$2:1 ° as 
60 AE OF 16$: | PUSHAB INPUT_FAB : 1104 
000000006 0 of F p CALLS a. LAKSF ILNAMDSC : 
7 6 8 2 MOVC3 #8, (RO), (FNM_DESC) : 
OC AE CE B BLBS  ERRORCODE, + 111 
18 AE 6C AE og i 17$: OVE JNBUT_FAB#1 , STVCODE + 111 
00000000' gf D3 46 18%: TSTL LNKSGL_INRELNAM + 1115 
5 1 4C BNEG 9$ : 
90000000" EF gF OOg4E PUSHAB DFLT_NAME + 1116) 
0000000" EF 9F 0025 PUSHAB DFLT-INREL : 
7 0D 5A PUSHL FNM_BESC i 
1 0D 3 PUSHL ; 
00000000v FF ; Fe 3 CALLS #4, SETUP_INRELNAM : 
00000000' FF 00000000' EF 3 6 68 MOVAB ODFLT_INREL, LNKSGL INRELNAM + 1117 
7 8 E 19$: BLBS | CALLED BY_OPTION, 20$ + 1119 
00000000" EF 57 D0 00276 MOVL § FNM_DESC LAST FNM_DESC + 1120 
14 00 BE 04 £0 0027D 20$: BBS #4,-a0(SP), 22 : 1122 
000000006 00 00 00 Be MOVL §LNKSGL_CURCLU, RO : 1130 
51 OC AO DO 0028 MOVL 12(RO)> LASTFDB ; 
61 5A DO 0028D MOVL R10, (CASTFDB) : 1132 
oc a0 5a 00 00290 MOVL R10, 12¢ : 113 
6A 11 00294 Z18: BRB 268 : 1122 
50 16 Ab 9E 00296 22$:  MOVAB 20 (AUXFNB), RO + 114 
18 EO AD 02 £0 0029A BBS #2, INPUT FAB+64, 23S : 1147 
19 36 AG Ey 00 OF BLBC 54 (AUXFNBY, 24$ + 1148 
51 60 9A 002A3 MOVZBL (RO), R1 : 1152 
51 00 00000000' FF 00000000" EF 2D 00 5 CMPC SYSINPUT DESC, @SYSINPUT_DESC+4, #0, RI, - : 
05 12 028 BNEQ  24$ : 
50 01 OD 0287 23%: MOVL #1, RO : 1147 
08 11 002BA BRB 25$ : 
50 04 002BC 48: CLRL = RO ; 
00000000" €F 50 00 00 BE 5$:  MOVL RO, LNKS$GL_SYSINPUT_FLAG ; 1146 
0044 28F 0 6E e 00 2¢ 6 C3 MOVCS #0, (SP), #0, #68, SRMS_PTR : 116 
1¢ AE 4401 BF Bd O2CE MOVW #17409, SRMS_PTR : 
20 AE 00010090 8F p 0 D4 MOVL #65536. SRMS-PTR+4 : 
A AE 94 0020¢ CLRB = $RMS_PTR+30 ; 
3 AE B4 «BF «(9B O02DF MOVZBW #132> SRMS_PTR+32 ; 
8 AE 60 AE 9E 002E4 MOVAB INPUT FAB, $RMS_PTR+60 ; 
1C AE 9F 00269 PUSHAB OPTIONRAB + 1164 
000000006 00 gi F E CALLS #1, SYSSCONNECT ; | 
oC A 0». F MOVL RO. ERRORCO : 
0 of AE CE £ BLBS § ERRORCODE, 27S ; 
18 AE A D F MOVL PTIONRAB+12, STVCODE > 1165 
5 36s: BEA 8$ 3 
52 00000000" EF po $: v RLF_CONTEXT, SAVE_CONTEXT + 1167 
40 AE OF PUSHAB OPT TONRAB* 36 > 1169 
7 84 BF 9A MOVZBL #132, -(SP) ; 
00000006 0 2 FB 0031 CALLS #2, LNKSALLOBLK ; 
0000000" EF 90000000" EF 9€ 0031 MOVAB ODEFILETYPE, TYPEADR : 1171 
000000" EF p4 3 CLRL  —aRLF_CONTEXf ; 1126 
if AE 9F PUSHAB OPTTONRAB : 117 
00000000' EF 9F 3 PUSHAB INFILFLGS : 
7 oD PUSHL ENM_DES¢ ; 
000000006 00 3 FB 3 CALLS #3, “LNKSPROCOPTNS ; 


9 ataaal 
v04=0 


90000000¢ 


000000006 


06 sonsooges 


000000006 
0000000' 
0000000" 


; Routine Size: 924 bytes, Routine 


; 1095 1197 


1 


60 ptey y 06 


% 
1 0 A 
iN 


Pied 


9 000000006 
BE 
08 08 
00 


7PN— PP en mm 


MNnNOoow'y 


EF 
EF 00000000' 


owoo-"OMMnNOVOCVTVUIM"OVU OT 
noo OOWVT T9900 eNO FoMo 


Base: S$CODES + 0541 


AX-11 Bliss-32 V4.0-74 
LINKER. SRCJLNKGETCMD.B52;1 


wi CONTEXT, RLF_CONTEXT 
BL abet FcLU, LNRSGL_CURCLU 


AN_OPEN_FDB 
{LETYPE, TYPEADR 
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. 
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. 
e 
. 
6 
. 
° 
. 
e 
© 
o 
. 
o 
a 
e 
2 
o 
° 
. 
. 
° 
° 
o 
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oe 


LNK_GETCMDINP 
¥04=060 


Z 


AVzS 


i=] 


1 
1 
1 
1 
1 
1 
1 
1 


hk ik tt tt 
ooo 


AX-11 Bliss-32 V4.0-742 
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WIS OODNO ALU UOODR UPAR 


PONIINODY 2 2 


= 


: 
: 


a8 
e 
of 
F 
0g 
a8 
10 
V 
i 
14 
1? 
f 
18 
19 
20 
1 
4 
2 
7 
8 
9 
0 
1 
4 
2 
7 
8 
9 
0 
1 
4 
5 
6 


Wp ates they ph tht eh 4 
MEUM —OV0CONOou 


BEE EF FAWWIWtttin 


errr 
Bote) 


ink$alloblk (fdb$c_size+nam$c_bin, fdblock) ; 
fdbpointer (0) 


RIPPIN INIGEE & BE HWW WIWNIIIIPININI HIN NIPONIPONIPONNUNDY 2 es a ss 


i ed ce ee el et el ee cel el ll lt cel el ol el cl cel el cl el cl cl el cls eel cl ly lt lt lt ls ly elt cls eld ls 


ee ee el lt cel cel el el lh el el el eld eld 
Oe ed el el el el eel el cl el cel el el el el ll el cl lt lh el cl cl cls lt cl el ll cel lt lh el cel el el ld eld 


PIPDPIPIPININDNIPSNINININININIPIPINOPIPIPO NNN PPofony 


Nal al et ot ee le at et et ot ne | 
WN SO CONOUE WN -O 0O® 


Pann 
fwnr—o 


global routine LnkSallofdb (fdbpointer) : 
'¢ 
: 
: This routine allocates some more dynmaic memory for file descriptor blocks 
! and RMS resultant strings and inserts into an le name block the 
: angen ge address for resultant and expanded strings returned on opens on 
! any call. 
! 
: If there is not sufficient resultant string area for the maximum, more is 
allocated. 
i The routine checks rsl of the previously allocated auxiliary file name block 
! and if non zero, reduces the remainin area by that actually used. 
i If still zero the area is reduced by um size before the decision 
to allocate more is made. 
lo 
begin 
own 
prevfnb : ref block C,byte) ; ! Previous auxiliary filename block 
local 
fdblock : ref block C,bytel, File descriptor block allocated 
rsareduction, 


temprsapointer ; For allocating resultant 


String buffers 


fdbpointer : ref vector ; 


if .prevfnd neq 0 
then 


begin Previously, try to use 
if (rsareduction = .prevfnb prestp rst}? eql 0 ' Amount consumed to redu 
then rsareduction = .prevfnb Cnam$b_rssJ ; 


rsaremsize = .rsaremsize - .rsareduction ; 
neutres = .nextrsa + .rsareduction ; 
end ; 


if .rsaremsize |ssu nam$c_maxrss 
then 


pepin buffer for maximum one 

ink$alloblk (rsa_allosize, temprsapointer) ; Go allocate some mor 

7 -temprsapointer eql .nextrsa + .rsaremsize 
en 


with previous one 


' rsaremsize = .rsaremsize + rsa_allosize then merge 
else 
begin ! Else, use new block and forget 
rsaremsize = rsa_allosize ; i previous area 
nextrsa = .temprsapointer ; 
end ; 
end ; 


Allocate file descriptor 
Return its address 


= .¥dblock ; 
prevfnb = fdblock Cfdb$t_auxfnb) ; 


Passed an address at wich to store 
If one has been allocated 


! The available area but if none 


Consumed, reduce by the total 
And update the address of next available 


Not enough space in resitant string 


e 
t was allocated continguously 


Get address of the file name block part 


SSS — 


8 

LINK_GETCMDINP 18-56 -1984 23:57: AX-11 Bliss-32 V4.0-74 Page 46 

1Oa=680 12-8 08- 1h ( 2534 LINKER. SRCILNKGETCMD.B 2:1 9 14) 
; 1} : ! 5 chSfill (0, fdb$c_size+nam$c_bin, .fdblock) ; ! Zero the fdb “ 
3; 11 § P 1 5 Snam_init (nam = .prevfnb ! Initialize the nam block : 
3 11 P 1 § rsa = .nextrsa : 
311 $ P 1 .fSs = nam$c_maxrss ; 
3 11 P 1260 esa = .nextrsa ‘ 
: 1160 Pp } $3 cess = nam$c_maxrss ‘ 
: 116 126 return ; . ! And that's it F 
: 1188 1264 1 end; ‘ 
.PSECT SOWNS,NOEXE,2 : 
00108 .BLKB 1 ; 
001DC PREVFNB:.BLKB 4 : 
.PSECT $CODE$,NOWRT,2 ; 
01FC 00000 .ENTRY LNKSALLOFDB, Save R2,R3,R4,R5,R6,R7,RB : 1198 ; 
58 000000006 00 9€ 90008 MOVAB LNK$ALLOBLK, R8 : ; 
57 00000000' cf 9E 0000 MOVAB RSAREMSIZE, R7 ; ; 
5E : C2 0001 SUBL2 #8, SP : : 
50 28 «4A? OD 9001 MOVL §PREVENB, RO : 1228 ; 
11 13 0001 BEQL : ; 
51 03 AO 9A 00019 MOVZBL 3(RO), RSAREDUCTION + 1231 : 
04 12 0001D BNEQ =} : ; 
51 02 AO 9A OOO1F MOVZBL 2(RO), RSAREDUCTION + 1232 ; 
67 31 82 0023 1$: SUBB2  RSAREDUCTION, RSAREMSIZE + 1236 ; 
FO A? 1 CO 00026 ADDL2 RSAREDUCTION, NEXTRSA + 1235 ; 
FF OF 67 (91 00 A 28: CMPB = RSAREMSIZE, #25 + 1238 ; 
24 1E 000 BGEQU 4$ ; ; 
E pd 00 PUSHL SP > 1241 ; 
7E 017E BF 3¢ 000 MOVZWL #382, -(SP) : 3 
68 02 FB 00C CALLS #2, LNKSALLOBLK : ; 
50 67 9A OO003A MOVZBL RSAREMSIZE, RO + 1242 ; 
50 FO A? CO 00030 ADDL2 NEXTRSA, R ; F 
50 6E D1 90041 TEMPRSAPOINTER, RO ; ; 
06 1 0044 BNEQ : ; 
67 7E 8F 80 00046 ADDB2 #126, RSAREMSIZE + 1264 : 
8 1 4A BRB 4$ ; : 
67 7E «oF 90 4C 3$: MOVB #126, RSAREMSIZE + 1247 : 
FO A? E VL _—* TEMPRSAPOINTER, NEXTRSA + 1248 : 
4 AE OF 4 4$: PUSHAB FDBLOCK + 1252 : 
7 6 BF A 7 MOVZBL =(SP) : : 
6 2 FB B CALLS #2, LNKSALLOBLK ; ; 
04 BC 04 AE D MOVL. fF BLOCK @F DBPOINTER > 1253 : 
28 «A? 4 AE 2 ci 6 ADDL3 #38, FDBLOCK, PREVFNB > 1254 ; 
0086 «BF 00 6E ae C 68 movcS #0, (SP), #0. #134, aFDBLOCK > 1255 ; 
56 3 ef 00 re MOVL. PREVFNB, R6 + 1262 : 
0060 8F 00 6E " € 90076 MOVCS #0, (SPS, #0, #96, (RO) : : 

66 6002 8F BO 0007E MOVW #24578, (R6) ; 


LNK CMD INP 
Whe2850 


Te | 


> Routine Size: 150 bytes, Routine Base: S$CODE$ + O08DD 


> 1164 1265 1 


£01984 13:20:40 Sate gisgrée ¥4e8 


ap 
ResTaSA 4 (R6) 


NEXTRSA, $F 2cR6) 


0.89251 


ot 


Page 47 LNI 


(14) vO! 


1264 


; Routine Size: 41 bytes, Routine Base: S$CODE$ + 0973 


; 1185 1285 1 


8 
LNK 18-se -1984 57:45 AX-11 Bliss-32 V4. 
v04 12-3081 he 13:20:40 LINKER. SRCJLNKGET 
: 1166 1 $6 1 global routine Lnk$clunamcmp (keyname, node) = 
3; 116 1 1 
ot en ee 
3 11% : 19 ! ; This routine compares an ascic keyname with the current entry 
: 117 1e72 1 i- 
P1MS RTE. 3 begin 
: map 
3 1175 1275 keyname : ref vector [,bytel, 
3 1128 1 ug node : ref block Lbytel 3 
3; 117 127 local 
: A : 4. clu : ref block C,byte) ; 
> 1180 1280 2 clu = .node Cnode$t_ptr3 : 
: 1181 1 5) return ch$compare (.keyname £02. keyname (1) 
3 Bt 1 § clu Cclu$Sb_namingJ, clu Cclu$t_name] 
> 118 128 j 
3: 1184 1284 1 end; 


98921 


! Point to cluster descriptor 


ENTRY LNKSCLUNAMCMP, Save R2,R3,R4 


1¢ 00000 
50 08 AC dO 00002 MOVL E.R 
50 OA AO D9 0006 MOVL _-10(RO) coy 
3¢ 04 =A p OOOA MOVL YNAME 
« 62 9A OO00E MOVZBL (R2), RS 
5} 5c AO 9A 00011 MOVZBL 92(CLU), R1 
54 o1 DO 00015 MOVL #1, R4 

51 09 01 A2 3 2D 00018 CMPCS R3. 1(R2), #0, R1, 93(CLU) 
5D Ad OO1E 
03 1A 000 BGTRU 1$ 

54 01 09 000 : SBWC OO, RG 
50 54 00 00025 1$: MOVL R4. RO 

04 00028 RET 


Sete Se Se Be Se Se Se Ss Se Se Se Se 


1266 
1280 


1281 
1282 


1284 


; Routine Size: 539 bytes, Routine Base: S$CODE$ + 099C¢ 


; 1203 1302 1 


] 
8 
LNK_GETCMDINP 18-56 -1984 257: AX-11 Bliss-32 V4.0-74 P 49| 
raves tts 12-808- 1982 ; 253% LINKER. SRCJLNKGETCMD.852;1 08) 
: 1} 7 1s ! global routine ink$compare_pdd (keyname,pdd) = 
214 1 : 14 
: 1191 1596 1 i Routine t T ith 
: ' Routine to c t t 
1136 ise) | u ompare ascii psect name w current entry 
3; 119 1 38 1 !- 
; 1196 129 begin 
: 1188 1993 5 PF, f vector C,bytel 
3 eyname : ref vector [, 
: 1137 : 38 odd : ref block C.bytel 3 
: 1198 1296 return ch$compare (.keyname (0), keynege {1} 
: 1301 : +4 g‘ ped Cpdd$b_naming] and not %x'80'), pdd [pdd$t_name] 
: 1202 1301 1 end; 
001C 00000 ENTRY LNKSCOMPARE_PDD, Save R2,R3,R4 : 1286 
26 04 as dO 00002 MOVL KEYNAME, R2 3 1298 
5 62 9A 00006 MOVZBL (R2), RS : 
50 08 at DO 00009 MOVL PDD, R 3: 1299 
51 OF AO Hy 00 EF ih EXTZV #0, #7, 15(RO), R1 : 
4 91 4 001 MOVL “i, 3 
51 00 01 = A2 10 Ht D gnie CMPCS R3, 1(R2), #0, R1, 16(RO) : 
: 1A 001 BGTRU  1$ ; 
54 1 b9 000 p SBwC #1, R4 3 
50 4 pbO 00023 1$ MOVL R4, RO ; 
4 00026 RET ; 1301 


<- 
oz 


LNK_GETCMDINP 
042060 


ns et es i ss a ss a ss 


SiS an abandasee bie 
wn 


ee a a ss a a a ss tn a 2 os tt 


POMPOUS 3 2 oo 


SOON UN EWN" O OONOUS WO 


; Routine Size: 


keyname : ref vector f-byte ‘ 
2tongls ; 


retadr : ref vector 


local 
pdd : ref block C,byte) ; 


ink$alloblk (pdd$c_size+.keyname (0), pdd) ; 


ch$fill (0, pdd$c_size, .pdd) ; 


dd (pdd$w_flags] = psc$m_optpsc ; 
bdd Poe estn et tae) = i 3 — 


ch$move (.keyname [0]+1, keyname [0], pdd Cpdd$b_naming]) ; 


retadr (0) = .pdd ; 
return true 
end ; 


wort 
5E 96 C 
E 0D 
7E 04 BC 9A 
6E 10 CO 
000000006 9? 02 fe 
6 6 
00 6€ oY C 
OA A6 0400 F BO 
OF A 1 BE 
5 04 6 A 
A6 04 B8C 8 
08 C 6 0D 
0 01 B 
4 


60 bytes, Routine Base: S$CODE$ + 09C3 


global routine Ink$Salloc_pdd (keyname,retadr) = 
' 
' 


Tae 

Moc emo coun SSRS 
= 
KOS 
o 


S 

@KE YNAME 
"LNKSALLOBLK 

» (SP), #0, #16, (RO) 
10(R6) 

wi, 14(R6) 

axEYNAME, RO 


+ @KEYNAME, 15(R6) 
R6, @RETADR 


AX-11 Blis 74 
LINKER.SRCJLNKGETCMD.B52;1 


-32 V4.0- 


Allocate the pdd 


! Zero it 


Set defined by option fla 
Set no alignment specifie 


Insert the name 


LAKSAL LOC POD. Save R2,R3,R4,R5,R6 


-(SP) 


a 
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global routine ink$collectpsct : novalue = 
'¢ 


at th end of command processing to process the data 
T definition and collection options. A pass is made 
hangin off each ¢.us er mentioned in a collect 


list, define it. 


! 

! 

' over the | of 
option. For each 


curcluster : ref block (,byte ! Pointer to current cluster descriptor 


4 istcluster : ref block C,byte ! Pointer to last cluster descriptor 
4 curpsct : ref block L,byte ! Pointer to current psect name block 
cludesc : ref block (,byte ! Pointer to cluster descriptor 
psctdesc : ref block C,byte ! Pointer to psect descriptor 

r psctdef : ref block C, ! Pointer to psect definition block 
: curcluster = .lnk$gl_cclulst ; ! Point to first cluster name block 
: loop through all named clusters 

; while .curcluster neq 0 do 

egin 

5 if not LibSlookup_tree (lnk$gl_clutree ! Lookup up cluster 

5 -curcluster Cccd$b_naming) 

5 ,(nk$c lLunamcmp 

5 cludesc 

5 j 

6 then 
36 begin ' And if not defined yet 

6 ink$allocluster (cludesc) ; ! Then do it now 

6 ch$move (.curcluster Fecasb naning]+ ! Copy in the name 

6 ° cyrciuster ccd$b_naming] 

6 cludesc Cclu$b_naming] 


Insert into cluster tree 


Lnk$Sinsert.clu (.cludesc) ; 
If the cluster should be protected 


if .curcluster Ccecd$b_protect] 


then 

cludesc Cclu$v_protect] = true ; 
Lnk$gl_curclu = .cludesc ; 
en 


o 


Then flag it now 
Make it the current cluster 


el 


Found--make it the current cluster 


MEN 0 ODNOAUE WN 08 ODN UNE WIN 0 OD NOAUE AR "OO OONOUE WO 


se 
ink$gl_curclu = .cludesc Cnode$l_ptr] ; 


curpsct = .curcluster Cccd$l_psclst) ; 
istcluster = .curcluster ; 

curcluster = .curcluster Cccd$l_nxtclul ; 
ink$dealblk (ccd$c_size, .lstcluster) ; 


Now get all the psects collected into that cluster 


Point to first psect block 
Remember this one 

And point to next one 
Deallocate it 


NNN NNN AA AAA AAAM MIMI a RR ne ery ee 
w Loe Sse Sevinitcb bie wb are ob ee nee SAP uN Oo oe iw te 


while -curpsct neq 0 
do begin 
local defbyopt ; 


ee ee ee el ee ee ce el ee ee el cel el cl el el el el cl cel cel el el el cel cel cecal cel cl cel cls cel ly el cecal cells cares cls cls cally cls cals cls eal calls cecal: calls calls cel cls cel sacl esas 
ce ee ee ee ce a ee ce ee ce ee ee ee ee ce ee ee el ce ce ce ee el el el cel el eel el cel el cel elt cel els cel cls cells cls cls cls cells cells cls cls cls cls 
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A ean" 
sctdef Cpdd$w_ ical &.. : 
po goss flange 


CEG Ranse sa tee bees 


-curpsct Ccpd$l_nxtpsc] ; 


a a kd ek et at ot od = 2 = 


Ww 


Oi i dd do 
BREE EEE EE PEPE EEE PANINI 


tt at ot ot mt =I IS HOO DOOOOOOOCOOOOOOOOOMWMc 


NOUS WN OC ODNOUE WIN @OCONAUE WN O0OO~ 


PRINS EH LMM BS BPP PEPE PPP PEON 


It at a ot ot a 
SOOONOMUFwn—oO 
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a 
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td ed ad ad = OO 
VRIOIO SPO—-MmoONn 
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>vir>r OWO—OoO 
sed 


SRS SR SSS 
OmMmMon—-mnoLflonerm —NOoo"o 


000000006 99 


MOT O™MOMMODOST OO—-TIT00O 
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ish (defbyopt = Lnk$srcpscdef (curpsct Ccpd$b_naming], psctdef)) 
LibSinsert_tree “eurDse p 


! Insert into defined by option List 


' Enter psect in current cluster 


ng} flags] or gps$m_gbl ; Mark psect as giobal 


pdd$b_namlLn 
pdd$w_ fl 
pdd$b_align 


-psctdef C des align) 4°a! Ax" FF 
then psctdesc 0; 


-ENTRY 


ie defined by option 


J or %x'80' ; ! flag psect already defined 
] ; an copy the defined flags 
: ! and the alignment 


! if defaulted 
! then use byte alignmenc 


' Point to next name block 
' Curpsct neq 
' Curcluter neq 0 


paeaienayreseT* Save R2,R3,R4,R5,R6,R7,R8,-; 
CNR SSL CURCLU U. 
LNKSCLONAMCHP R10 


SP 
tnael CCLULST, CURCLUSTER 
CURCLU LUSTER 
CLUDESC 
4(C RCLUSTER) 
LNK GL_CLUTREE 

BSLOOKUP. TREE 


Gi bog ENKSALLOC 


LUSTER 
4(CURCLUSTER) RO 


Pete Se Se Se See Se Se Ge Se Se Se Se Se Se Se Se Se Be ee 


ROY OF EORCCUSTER). 92(R6) 
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250 bytes, Routine Base: S$CODE$ + O9FF 


; Routine Size: 


1 


1418 


; 1321 


voez000 1Psepct gee 2 3:25:30 HUtncee SReSiMcGe Tem 882; Page 13) 
; } ; 1633 ! global routine Iink$srcpscdef (pscnam,psctdesc) = 

|) er 

: 1? § : Look up PSECT name in the psects defined by option. 

. le 

1 se 

So et pactdesc =f Fat BtSeR "cheval? | Aintertm® 

; \ 5 1 1 return LibSlookup_tree (\nk$gl_pscdflst,.pscnam,|nk$compare_pdd, .psctdesc> 

:1 5 1238 end ; 


0000 ENTRY LNKSSRCPSCDEF, Save nothing 3 1419 
98 AC 3 i PUSHL PSCTDESC ; 1431 

FE9SA CF F it PUSHAB LNKSCOMPARE_PDD 3 

Be AC DD 00009 PUSHL CNAM 3 

000000006 6° 9F 0000 PUSHAB LNKSGL_PSCDFLST 3 

000000006 00 4 FB 0001 CALLS #4, LIBSLOOKUP_TREE 3 
04 0001 RET 3 1433 


; Routine Size: 26 bytes, Routine Base: S$CODE$S + OAF9 


; 1338 1434 1 


LNK_GETCMDINP 4.58 -Sep-1984 23:57: X-11 Bliss-32 V Page 55 
yoc=000 1a-88b7138s $2:20:30 EC TNRERSRESLWRGETCRD 6821 9 083 
; } re 1° 5 } global routine (nk$allocluster (clusterdesc,dummyarg) : novalue = ‘ 
3; 1 tg 14 ; 1 t+ ‘ 
; 134 14 3 1} ‘ 
3 1344 14 1! Allocate a cluster descriptor and Link on end of the List and initialize ‘ 
; : 45 re : : some fields of it now. ‘ 
| 5 1436 1! If the second argument is present, the cluster descriptor is not linked ‘ 
> 1348 1445 1! into the List. ‘ 
3 1349 1444 1! ‘ 
; 1350 1445 1 !- : 
3% 2 1228 begin : 
3; 1 é 144 map ‘ 
3 135 1448 clusterdesc : ref vector C,long) ; ‘ 
3 1354 1449 local ‘ 
; 1355 1450 newc Luster : ref block C,byte] ; ‘ 
; 1356 1451 builti : 
3; 1357 1436 nullparameter ; : 
; 1358 145 : 
; 1359 1454 ink$alloblk (cluSc size,clusterdesc (OJ) ; ! Allocate the block : 
; 1360 1455 newcluster = .clusterdesc (0) ; ! Retrieve its address : 
; 130) 1528 ch$fill (O,cluSc_size,.newcluster) ; ! Zero the descriptor : 
; 1363 1458 newcluster Cclu$l_lstfdb] = newcluster (clu$l_fstfdb] ; ' So empty List : 
3 1364 1459 newcluster Cclu$l-lstisd]_ = newcluster Cclu$l_fstisd] ; ! : 
3; 1365 1460 newcluster Cclu$l=istadrl] = newcluster Cclu$l~ fstadri]’; ; 
; 1368 139) ink$gw_nclusters ~ = .lnk$gw_nclusters + 1 ; ' Count the cluster 
3; 1368 1283 if nullparameter (2) ! If second argument not supplied 
; 1369 1464 then : 
3; 1370 1465 begin ' then Link into end of cluster List 
: 1371 1466 ; in Sol. beste ly Er lust ante tul = .newcluster ; ! Set pointer 
3 1376 1467 newcluster Cclu$l_prevclu = .lnk$gl_lastclu ; 
3; 137 1468 3 ink$gl_ lastclu = cnewcluster ; ! For Last in List 
3; 1374 1469 § end ; 
3; 1375 1470 return ; 
3; 1376 1471 1 end ; 
00FC 00000 ENTRY LNKS$ALLOCLUSTER, Save R2,R3,R4,R5,R6,R7 : 1435 
57 00000000G 00 9€ Bods MOVAB LNKS$GL_LASTCLU, R 3 
4 Ac dD PUSHL ae ESC > 1454 
43 88 8F 9A 0000 MOVZBL 6, -(SP) 3 
000000006 0 02 Fe 001 CALLS #2, LNKSALLOBLK 3 
56 04 43 B bat MOVL ac CuSTERDES ~N ystusTer : 1455 
0088 «28F 00 6€ 2? C BR) MOVCS #0, (SP), #0, #136, (NEWCLUSTER) : 1456 
Oc A6 98 7 9E BS MOVAB gine) 12(NEWCLUSTER) > 1458 
1¢ Ab 18 Ad 9E 00 MOVAB 24(R6S, o8(NEWCLUSTER) : 1459 
40 A6 3¢ A 4 00 MOVAB 60(R6), 64(NEWCLUSTER) : 1460 
000000006 0 8 8 INCW LNK$GWNCLUSTERS : 1461 
2 gf 1 CMPB (AP), #2 > 1463 
1F 00038 BLSSU- ‘18 3 
08 AC D5 0003D TSTL BAP) ; | 


voerobo NP ifcse 95871882 73:25:93 cer Saedineot temo -6S2:1 


: 1 4 BNEQ 28 
50 D 42 1$: MOVL = LNK$GL ASTCLY 
6 6 D 4 MOVL NEWCLUSTER ‘ ita) RO 
04 ag D 4 MOVL RO, 4(NEWCLUSTER) 
6 56 D0 0004 MOVL § NEWCLUSTER, LNKS$GL_LASTCLU 
04 O004F 2$ RET 


; Routine Size: 80 bytes, Routine Base: S$CODES + 0B13 


: 1377 1472 #1 
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ek tk a a a a a — — bs Ld — — 4 2 is 2 a 4 es a 2 
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SBRLERRANLSSRLEARANSLSSSIEA 


Routine Size: 


is) | 
18-s 30p-1he 13:20:40 Ee tnner Saesincce temp 68251 Page 235 | 


| 

| 

global routine Lnk$insert.clu (cludesc) = | 
14 | 
| 

| 


This routine is called to insert a cluster descriptor into the balanced 
binary tree of cluster descriptors. 


1 
! 
} 
Inputs: 
CLUDESC address of cluster descriptor 


fouyine clunodealloc (keyname,retadr,cludesc) = 


09.09 09 09 09 09 CD 090908 SII NII 
DOONAYV EWN —OOONOUE Ww 


beg n 
30 : routine to allocate node for new cluster 
4 map 
9 keyname : 7 vector f. -bytel. 
9% retadr : ref vector oo, 
95 cludesc : ref block C, bytes 
38 local 
a nodeptr : ref block C, ‘nals ; 


Oa ed ad dd od 
PDD & BEEP EEE EPP PPP PPP PPP PPE EE 


PRIWAWWNAAAAANNAW NII IID 9 SS FS SS 
oc . 
@ 
wo 
ate 
=] 


99 ink$alloblk (node$c_long+. keyname CO],nodeptr) ;: 
00 nodeptr (node$i_ptr] = .cludesc ; 
3 retadr (0) = -nodeptr 3 
08 return true 
04 end ; 
0000 00000 CLUNODEALLOC: 
«WORD Save nothing 1487 
5E 9s C2 0000 SUBL2 #4, SP 
E 0D 0000 PUSHL P 
7E 04 BC 9A 00007 MOVZBL @KEYNAME, -(SP) 
E OF co #14, (SPS 
000000006 8 0 Fe 3 CALLS #2 * LNKSALLOBLK 
6— D 1 MOYL NO 15 
OA AO 0c AC 00 00018 MOVL Rane (RO) 
ge 81 DO o00et MOVE _— 1303 
04 $0084 RET 1504 


37 bytes, Routine Base: S$CODE$ + 0863 


1505 : 
2 : Main body of Ink$insert_clu 
15 


oO 
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cludesc : ref block C,byte) ; 
blockaddr ; 
return LibSinsert_tree Cinksgt.c clutree, cludesc peluse or. Zref (0) 


loca 


—f ss 4 4 ss 
>t 4 4 4 CD 


Our wr—oo0 


© 141 
; 141 
; 141 
3 141 
; 14 

; 14 

oe 14 1 
; 1422 


g tk clunamcmp, clunodealloc, blockad .cludesc 
end ; 

000 ~ ENTRY Lens iesent _CLU, Save nothin 3 1473 

5E 08 08 6 SUBL2 @# ’ é 
04 AC D 3 PUSHL CLO bese 3 1514 
08 AE F 0 PUSHAB BLOCKADDR 3; 1513 

CD AF 9F booe PUSHAB CLUNODEALLOC ; 

FDD9 CF OF 00 PUSHAB esyeeee ; 

18 AE 04 0001 CLRL é 

j AE 9F 0001 PUSHAB 16(SP) ; 

7E 04 AC 4464434 8F C1 00018 ADDL3 #92, CLUDESC, -(SP) : 

000000006 00 9F 90021 PUSHAB LNK$GL_CLUTR ; 

00000000G 00 07 fe BOSE cays rie LIBSINSERT_TREE r 


1516 
; Routine Size: 47 bytes, Routine Base: S$CODES + 0B88 


9 
LW GE TCHDINP 1$-seo-1984 23 
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> 1426 1517 1 routine get_image : novalue = 

: 1425 1518 1 . . 

1 a 

; 14 8 1 1! This routine processes the /EXE switch and determines the name and 
3 1 : § ! ; the associated related name of the .EXE file. 

: 1431 1526 1 !-- 

3; 14 ¢ 1525 begin 

; 14 1 § Local 

3; 14 1 exe_desc dynamic _descriptor, 

; 1435 1 4 new file initial (0), 

; 16 } , status ; 

; own 

3: 1438 1531 exe_name : vector Cnam$c_maxrss, byted, 

: 1o2 13 ¢ exe_inrel : block Cnam$c_Bln, byte) ; 

3; 1441 1534 if (status = cliSpresent (sd_executable)) 

3 ey 1535 then begin 

3 144 15 : if .local_qualifier 

3 14446 15 4 then begin 

3 1445 1538 4 if .status neq cli$_locpres 

: i | 1539 4 then return 

3 144 1540 5 else begin 

3; 1448 1541 5 setup_inrelnam (0,.last_fnm_desc, exe_inrel, exe_name) ; ! 
3 1449 1368 2 ink$gl_relnam_exe = exe_inreél ; : 
3; 1450 154 end 

3; 1451 1544 4 end 

3 1626 1302 3 else lnk$gl_relnam_exe = dflt_inrel ; 

> 1454 1547 3 new_file = true ; 

3 1455 1548 univstar_valid = false ; 

3; 1456 1549 4 ink$gb_locnov_exe = (if cli$get_value (sd_executable, exe_desc) 
: 1457 1550 4 then false 

; re | 133! 4 one -local_qualifier 

: 1460 1388 if .lnk$gl_ctlmsk Fink$v_shr3 

3 1461 1554 then if .exe_desc Cdsc$w_length] eql 0 

3 1068 132? 4 then copy_desc (share_desc, exe_desc) ; 

; en 

3 1464 1389 else begin 

; 1465 1558 4 if ((not .local_qualifier) and (.status eql cli$_negated)) 
3 1668 1559 4 or -local_qualifier) and (.status eql cli$_locneg)) 
3: 146 1560 4 then begin 

3: 1468 1561 4 new_file = true ; 

3: 1469 1206 & univstar_valid = true ; 

3; 1470 136 & copy_desc (null_device, exe_desc) ; 

i Bios ert, 

Py eng ; 

3; 147 156 

3 1474 156 if .new_file 

3; 1475 1 $8 then nenie 

3; 1476 1 § outfile = Lnk$gl_imgfil ; 

3: 1477 1 9 outputfile (exe_desc) ; 

: 1or8 137 end ; 

3 147 1572 end ; 


74 Page 59 ony 
LNKGETCMD.B32;1 . (23) 


Descriptor of .EXE file 
Set if new .EXE request is made 


Related file for .EXE 
Related NAM$ for .EXE 
/EXECUTABLE 


Setup related name 


! using Last input file 


Use default related name 


se new .EXE file spec 

Disallow UNIV=* for STB generation 
Get image name (no name is okay) 
and setup ‘local no-value’ flag 


If a shareable image 
and /EXE didn't specify a name 
then use /SHAREABLE name 


But, if explicitly negated, 
disable inoge production 
E fil 


Setup new .E e spec 
Will now allow UNIV=* for STB gene 


Point to the pointer 
Set up image output file 


9 | 
LNK_GETCMDINP Ses Sep AX-11 Bliss-32 V4.0-74 Page 60 
ihe 2850 14-Sep 71882 $3526 ‘$9 LINKER. SRCJLNKGETCMD.B32;1 ° (255 
.PSECT SOWNS,NOEXE,2 : 
001EO EXE_NAME: : 
-BLKB 455 ‘ 
OO OF *BLK B e 
£0 EXE_ INREL : : 
LKB 96 ; 
.PSECT $CODE$,NOWRT,2 : 
003C 00000 GET_IMAGE: : 
-WORD Save R2,R3,R4,R5 : 1517 ; 
5 00000000' EF 9€ 9002 MOVAB SD _EXECUTABLE, RS : : 
4 90000000" EF 9E 000 MOVAB LNRSGL_RELNAM’ EXE : ; 
3 00000000" EF H 9010 MOV LOCAL QUALIFIER, as” : ; 
SE 4 C2 0001 ry : : 
02000000 8F ODD OO1A PUSHL  #33554432 + 1527 ; 
04 AE D4 00 CLRL. - EXE_DESC+4 : ; 
52 D4 000 CLRL NEW=F E : ; 
55 DD 000 PUSHL R + 1534 ; 
000000006 00 gi FB 000 CALLS #1, CLISPRESENT : ; 
60 : E9 0002E LBC ss STA : ; 
6 : E9 00031 BLBC = LOCAL_QUALIFIER + 1536 ; 
000000006 &F 0 D1 000 CMPL STATUS, #CLIS_ RecbRes : 1538 : 
01 13 000 BEQL ~=sés«s1$ F : 
04 00030 RET : ; 
DC «6C3) OOF ~OOOSE 18 PUSHAB EXE_NAME > 1541 ; 
20€ = C3—oOF «0004 PUSHAB EXE INREL : : 
16 ¢ DD 0004 PUSHL LAST_FNM_DESC : : 
E D4 OO04A CLRL. = (SPT : ; 
00000000v EF 04 FB 0004 CALLS #4, SETUP_INRELNAM : ; 
64 O2zpc C3 5 005 MOVAB EXE INREL; LNKSGL_RELNAM_EXE : 1542 ; 
03 11 0005 BRB $ : 153 : 
4 0108 ~¢ oF O05, 3s MOVAB ODFLT_INREL, LNKSGL_RELNAM_EXE : 1545 ; 
2 01 00 0005F 3$ MOVL #1, REwW FIL > 1547 ; 
a A3 D4 9 62 CLRL Ni VSTAR VALID : 1548 : 
402 F BB 0006 PUSHR #°M > 1549 ; 
000000006 00 FB 5 CALLS #2, rfc fseer. VALUE : ; 
4 E BLBC : ; 
fy 7 CLRAL 3 3 
1 0007 BRB 5 : : 
50 : p 77 4$: MOVL ‘ CAL ag ALIF IER RO : 1551 ; 
Oc A 0 7A 5$: MOVB LOCNOV_EXE : 1549 ; 
2F 000000006 00 02 € 7 BBC NEL ~CTLMSK: 9$ : 1553 : 
ge rH Ist fe : 1554 : 
bE 0184 3 D MOV Be DESC, EXE_DESC : 1555 : 
4 11 BRB $ : 1 ; 
C ; £8 6$ BLBS _LOCAL_QUALIFIER : 1558 ; 
000000006 &F i CAPL TATUS, #CLI EREGATED ; : 
15 3 E BLBC — LOCAL ual IF JER 9$ > 1559 F 
000000006 8 D1 7$ CMPL STATUS, #CLI$_LOCNEG : : 
| 
} 


vie alee 


| ad 
oz 


9 
735p-198e F3:20580 EC TNKer’Seedincoe teMD BS2;1 Page 5) 


~ 
< 


€ 12 0007 BNEQ ; 
5 1 DO 000A9 8S: MOVL ih. NEW_FILE + 1561 
FCO 1 3 MOVL #1, UNIDSTAR_VALID : 136¢ 
6 0124 c3 D 0008 MOVG NULL pDEVICE “EXE DESC + 156 
1 : £9 00B5 9$: BLBC = NEW FF 16s + 1567 
019¢ 000000006 : E 00088 MOVAB UAKSGL lact it OUTFILE : 1369 
DD 000C1 PUSHL : 1570 
00000000v EF FB 0c CALLS #1, OUTPUTFILE : 
04 OOOCA 10$: RET + 1572 


; Routine Size: 203 bytes, Routine Base: S$CODE$ + 0BB7 


20-19 4 $3: i AX-11 Bliss-32 V4.0-74 Page 485 


H 
vie) Neleaeneal 15-$ 57:45 7 
v04 14-Sep-1984 12:40:30 LINKER. SRCJLNKGETCMD.B52;1 


-PSECT SOWNS,NOEXE,2 


00340 SYM_NAME: 
-BLKB 255 
440 SYM_INREL: 
-BLKB 96 


: 1481 1573 1 routine get_sym : novalue = ; 
3 14 ¢ 1574 1 : 
3; 14 1575 1 S44 , 
3; 14 1 6 1; : 
3 1 5 : f : This routine retrieves the symbol table file name and qualifiers : 
3 1289 1 § 1 !e< : 
; 1488 1580 begin : 
; 1489 1581 local : 
3 1490 1 § sym_desc : dynamic_descriptor, ! Descriptor of .SYM file ‘ 
> 1491 1 status ; ‘ 
3 1496 1584 own : 
3 149 1585 sym_name : vector Cnam$c_maxrss, byte], !' Related file for .SYM ; 
3 1628 1 $ sym_inrel : block Cnam$c_Bln, byte] ; ! Related NAM$ for .SYM : 
: 1698 1588 if (status = cliSpresent (sd_symbol_table)) ! /SYMBOL_TABLE ; 
; 149 1388 then begin ; 
3; 1498 1590 if .local_qualifier : 
3 1499 1591 4 then begin ‘ 
; 1500 1238 é if .status neq cli$_locpres : 
; 1501 1593 4 then return : 
; 1208 1594 5 else begin ‘ 
; 150 1595 5 setup_inrelnam (0,.last_fnm_desc, sym_inrel, sym_name) ; ! Setup related name ‘ 
: 1504 1596 5 ink$gl_relnam_sym = sym_inrel ; ! using Last input file ‘ 
; 1505 1597 5 end ‘ 
: 1208 1598 4 end ‘ 
3 44 12% ; else Link$gl_relnam_sym = dflt_inrel ; ! Use default related name ‘ 
3; 1509 1601 ink$gl_ctlmsk Cink$v syntbl) = true ; ! Ask for symbol table : 
; 1510 1006 * ink$gb_locnov_sym = Tif cli$get_value (sd_symbol_table, sym_desc) ! Get .STB mame (no name is okay) : 
3 1511 1603 4 then false ! and setup ‘local value’ flag ‘ 
; 1318 1604 4 else .local_qualifier : 
3 151 1605 de : 
3; 1514 1606 outfile = Lnk$ U_symtil 3 ! Point to the pointer : 
; 1515 1607 outputfile (sym_desc) ; ! And set up output file : 
; 1316 1608 end : 
3; 151 1609 else begin : 
3 1218 1610 4 if ((not .local_qualifier) and (.status eql cli$_negated)) ' But, if explicitly negated, : 
3; 151 1611 4 or (( -local_qualifier) and (.status eql cli$_locneg)) ' : 
; 1520 1918 then Link$gl_ctlisk Clnk$v_symtbl) = false ; ! disable production ‘ 
; 1521 161 end ; . 
3; 1522 1614 end ; : 


-PSECT SCODES,NOWRT,2 


a * a 


9 
vou2000 HE$0e19RE GEEGESE  WMLLAPLRNTAR LSS. Pane (28) 


; Routine Size: 175 bytes, Routine Base: $CODE$ + 0C82 


; 1523 1615 1 


001¢ GET_SYM:.WORD Save R2,R3,R4 : 1573 F 

' FE MOVAB SD syMeoL TABLE, R4 : ; 

' EF MOVAB LWNRSGL_RECNAM_SYM, R3 : § 

' £F HOVAB LOCAL QUALIFIER, R2 : ; 

‘Se 1 SUBL2 #4 : : ; 

02000090 F DD OOO1A PUSHL  #3$554432 + 1582 ; 

4 AE D4 CLRL SYM_DESC+4 ; : 

4 DD PUSHL R64 + 1588 ; 

000000006 1 FB 5 CALLS a Gk ISPRESENT : : 
£9 : BLBC LOCAL QUALIFIER, 1$ + 1590 ; 

000000006 : ; DS 3 CHL TATUS, PELIS LOCPRES + 1592 : 
O33¢ 46C2 «OOF PUSHAB SYM_NAME + 1595 3 

4 5 C oF F PUSHAB SYM_INREL 3 ; 

16 ¢ DD 43 PUSHL LAST_FNM_DESC ; : 

E D4 0004 CLRL. 0s = (SPT : ; 

00000000v EF 04 FB 00049 CALLS #4, SETUP_INRELNAM : ; 
63 043C¢ fe 5 3 om YR_INREL. LNKSGL_RELNAM_SYM 3 1336 : 

63 0108 9 1$ MOV DFLT_INREL, LNKSGL_RELNAM_SYM : 1599 : 

000000006 00 § a5 03 2$ sty 735.7 NKSGL_CTLMSK?1 - + 1601 ; 
4010 8F BB 0006 PUSHR #*M<R4,SP> + 1602 ; 

000000006 00 FB 06 CALLS 2, cLISGET_vALUE ; F 
04 E9 90 oF BLBC—séaRO ; ; 

D4 00071 CLRL ~—_ RO ; ; 

03 11 00 i BRB 4$ F ; 

50 : DO 00075 3s: MOVL LOCAL_QUALIFIER, RO + 1604 ; 

06 A 90 00078 4$: MOVB RO, LAK$GB_LOCNOV SYM + 1602 ’ 

019C C2 000000006 90 9€ 0007 MOVAB LNKSGL_SYMFIL, OUTFILE + 1606 ; 

E DD 0008 PUSHL + 1607 ; 

00000000v EF 01 FB 0087 CALLS #1, OUTPUTFILE ie : 
0c 62 £8 O8F 5$ BLBS §_LOCAL_QUALIFIER, 6$ + 1610 ; 

000000006 8F 30 by - CHPL STATUS, #CLIS_NEGATED ; : 
10 $ 69 09 BLBC = LOCAL_QUALIFIER, 8$ : 1611 ; 

000000006 8F D4 it 68: cMPL STATUS, #CLI$_LOCNEG : : 
000000006 00 3 BA OA 7$: BICB2 #32, LNKSGL_CTLMSK+1 + 1612 ; 
4 OQOOAE 8$: ET + 1614 ; 


SSeS —— 


.PSECT S$OWNS,NOEXE,2 
004A0 MAP_NAME : 


-BLKB #55 
005oF -BLKB 
5A0 MAP_INREL: 
-BLKB (6 


-PSECT SCODES,NOWRT,2 


9 
LNK_GETCMDINP 1b-se $1984 23:57:45 AX-11 Bliss-32 V4.0-74 Page 64 LNI 
1007000 12780871382 $3:20:%6 LINKER.SRCJLNKGETCMD.B52;1 ’ (24) v0. 
: 1525 1616 1 routine get_map : novalue = : 
i 1586 1812 | _—* 
rs | 1618 1 !+¢ : 
3 3 : 1619 1! : 
3 : 19 : : : This routine retrieves the map file name and qualifiers : 
; 1531 16 § 1 !-- 3 
3 1 ¢ 16 begin : 
3 7 1624 local : 
3 1 1625 map_desc : dynamic_descriptor, ! Descriptor of .MAP file : 
; 1535 16 § status ; : 
3 3 16 own : 
3 1 1626 map_name : vector Cnam$c_maxrss, yrter. ! Related file for .MAP . 
: 13 3 16 4 map_inrel : block Cnam$c_Bin, byte] ; ! Related NAM$ for .MAP : 
3; 1540 1631 if (status = cli$present (sd_map)) ! /MAP ; 
; 1541 16 ¢ then begin ; 
3 1286 16 f .local_qualifier ; 
3; 154 1634 4 then begin , 
3 1544 1635 4 -Status neq cli$_locpres : 
3; 1545 16 $ & then return ; 
3; 1546 16 2 else begin : 
3; 1547 1638 setup_inrelnam (0,.last_fnm_desc, map_inrel, map_name) ; ! Setup related name : 
3 1548 1639 5§ ink$gl_relnam_map = map_inrel ; ! using Last input file ° 
3; 1549 1640 5 end : 
3; 1550 1641 4 end : 
; 133) Hb a ; else Iink$gl_relnam_map = dflt_inrel ; ! Use default related name : 
3 1388 1644 Lnk$gl_ctlmsk Clnk$v_map] = true ; ! Ask for map : 
3 1554 1645 4 ink$gb_locnov_map = Tif cli$get_value (sd_map, map_desc> ! Get map name (no name is okay) $ 
; 1555 1968 4 then false ! and setup ‘local value’ flag 3 
3 1326 1647 4 else .local_qualifier ; 
3; 155 1648 : F 
; 1558 1649 outfile = Lnk$gl_mapfil ; ! Point to the pointer ; 
; 1559 1650 outputfile (map_desc) ; ! And set up output file ; 
: 1560 1651 end ; 
3: 1561 1636 else begin 3 
: 156 16535 4 if ((not .local_qualifier) and (.status eql cli$_negated)) ' But, if explicitly negated, : 
3; 156 1654 4 or (( -local_qualifier) and (.status eql cli$_locneg)) : : 
; 1564 1655 then Lnk$gl_ctlmsk Clnk$v_map] = false ; ! disable production 3 
3; 1565 1656 end ; : 
3: 1566 1657 end ; : 


; Routine Size: 174 bytes, Routine Base: S$CODE$ + 0D31 


; 1567 1658 1 


9 
LNK_GETCMDINP 15-se “1984 23:57: AX-11 Bliss-32 V4.0-7 Page 65 
raves area 88e F3i25;90 | Hee SRE TAeGY teto oS2;1 9° 28) 
o03¢ GET_MAP:.WORD Save R2, RB. »R4,RS : 1616 F 
5 FF MOVAB SD_MAP, R : ; 
G 0 MOVAB LNRSGL CTLMSK, R4 : $ 
EF MOVAB LNKSGL-RELNAM MAP, R3 : ; 
' EF 1 MOV LOCAL QUALIFIER, R2 ; : 
E - 1 SUBL2 # $P : ; 
02000000 F DD PUSHL  #33554432 + 1625 ; 
4 Ag D4 CLRL MAP_DESC+4 ; : 
DD A PUSHL R + 1631 ; 
000000006 90 1 FB g CALLS #1, CLISPRESENT : ; 
: ; £9 tee STATUS, SB ER + 1633 
ooooov00s BF $ D1 000s cHPL STATUS, aLis, COcPRES > 1635 : 
49¢ C2. OF 43 PUSHAB MAP _NAME + 1638 ; 
39¢ Co 9F 0004 PUSHAB MAP™INREL : : 
16 6 DD 0004A PUSHL LAS ST_FNM_DESC : ; 
E D4 0004 CLRL SPY : ; 
00000000v EF 04 FB 0005 CALLS SETUP_INRELNAM : ; 
63 059¢ ce H 0057 NOVAB ts _INREL? LNKSGL_RELNAM_MAP : 1639 ; 
63 0108 F 4 O03 1$: nytt: ge TLINREL, Lense.  RELNAM_MAP 2 1642 3 
64 10 88 00063 2$: BISB # NKSGL _CTLMSK~ + 1644 ; 
4020 8F 6B 0066 PUSHR #*M<R + 1645 ; 
000000006 00 FB 0 6A CALLS ns “gLiseer. VALUE ; : 
04 E9 00071 BLBC : ; 
50 D4 00074 CLRL : 3 
03 11 007% BRB Re : ; 
30 g DO 00078 3$: MOVL LOCAL_QUALIFIER, RO ; 1647 é 
09 A 90 00078 4$: MOVB RO. LAK$GB_LOCNOV_MAP + 1645 F 
019C C2 000000006 90 9 0007F MOVAB LNKSGL_MAPFIL, OUTFILE + 1649 ; 
E OD 0088 PUSHL te + 1650 ; 
00000000v EF 07 FB OO0BA CALLS #1, OUTPUTFILE : ; 
04 00091 RET : 1631 ; 
0c $2 8 0092 5$: BLBS § LOCAL_QUALIFIER, 6$ : 1653 ; 
000000006 8F 30 1 00095 CHPL STATUS, #CLIS -NEGATED : : 
0c : 13 O09 BLBC _— LOCAL Qual IFJER 8$ + 1654 ; 
000000006 8F 3 bi OOAt 6$: cHPL TATUS, #CLI$_LOCNEG ; : 
64 1 BA Soa 7$: BICB2 #16, LNKSGL_CTLMSK : 1655 F 
4 QOOAD 8$: RET : 1657 : 


9 
LNK_GETCMDINP 1-50 1984 23:57:45 AX-11 Bliss-32 V4, P 
v04 062000 ep Be 13:20:46 LINKER SRESLNKGE TCAD 8 852;1 age 38 


: 1569 1659 1 routine get_input = ; 
4 1 1660 1 inn 
: 157 1 1 !e¢ ; 
: 13h8 + i ee i i he input fil 
3 ' s routine retrieves the input es : 
: 157% 1664 1 | . 
3; 1575 1993 1 !-- : 
3 1 re 1 § begin . 
; ! f 24 local status ; : 
: 1339 1968 if status = cli$get_value (sd_p1, token_desc) ! Get input file , 
3 1280 9 then ; 
: 1581 167 begin ; 
3 1386 lore if gl idoresent (sd_library) ! /LIBRARY > 
; 158 1673 4 then begin ; 
3 1288 1674 4 ilflgs = stnsiitige or (fdb$m_libr or fdb$m_libsrch) ; : 
; 1585 1675 4 inkSset ibrin ( 3 : 
3; 1586 1676 end ; ; 
3; 1587 167 : 
; 1588 1678 if cli$present i selective_search) ! /SELECTIVE_SEARCH 

3 12eR + 24 4 then infilflgs = .infilflgs or fdb$m_selser ; 

1393 1883 then 1 Raat eg pe ay tt Roa | /INCLUDE LIST 

3 n § resent (sd_include ! 

1898 igse a ilen Beate 

3 1594 1684 4 in tet s = .infilflgs or (fdbSm_libextr or fdb$m_libr) ; 

3; 1895 198) 4 ink$set ibrin () ; 

3; 1896 1686 end ; 

: 1898 1883 if Lig (sd_ i ) ' /OPTIONS FILE 

3 c resent (sd_options ! N L 

: 1899 1689 4 then begin . “ 

: 1600 1699 4 Uf tgs = .infilflgs or fdb$m_option ; 

3; 1601 1691 4 optionfile () ; 

3 1oR6 1696 end ; 

: 1800 189 inputfile (token_dese) Is input file FDB 

: npu e (token_desc) ; ! Set up input e 

; 1605 1695 ona i sii 

3 ioe 1998 

: 160 169 roqurn Status ; 

3: 1608 1698 1 end; 


007¢ 00000 GET_INPUT: 
wo R4,R5,R6 : 1659 


‘ Save R2,R3,R4, 

ts i cr 9E 000 2 MOVAB LNKS$SETLIBRIN, R6 ; 

G 00 9€ MOVAB CLISPRESENT, RS ; 

9 ' EF 9€ i MOVAB SD_P1, R4 ; 

i 3 ' EF 9€ 0001 OVAB INFILFLGS, R3 ; 
oH AS 9F 0001C PUSHAB TOKEN_DESC > 1669 

4 dd 0001F PUSHL R4 : 

000000006 Q F 1 CALLS #2, CLISGET_VALUE : 

D 8 OVL R STATUS ; 

4 7 B LBC = STATUS, 5$ ; 
cc | OA OSE E PUSHAB SD_LIBRARY > 1672 


Per eee eee eT eee eT ee ee eee ee Se Se ee ee ee es eres ee ee ee es ee es es ed ee ee eee 


“7 WW wun ~N 2. uuu nun 


nn wwe anew wo onewTr fo 
own rr oo coco Soon AO 

N Seb oho) ooo ooo ooo oo 

~ orm e-re ere Cece &e 

& 

a Sees ee te Fee Sta *e ete tate tate *e eee te *e te 

a 
a 

| 

—_ 

*. 

Nm 
ue 
zo 
™m e 

‘co 
ot 
wow 
we 
>u 
o 
~~ 
ma 
‘J = | 
an vu | 
av za ee 2 
ce —< ~~ oe 
—A —- VWawe oa <= - 
@- 2 YwOaw2e - 2 "Om 2 Ww 
cow 2 ts Ow OF lw UOC 
mw 4 www OO WW J WW oe 8 
-—-~— ww 2 ow JS ww kee whe 
‘2 f& wee weuawe WME ZU oO 
<— A uo MFA 0A =—42Z0Q “OMe 
<8 FH ZRHYOR |—=358 46 HOW H—wWD> 
ee ee) 4 ee ee ee 2 ee 4 ed — | 
aA —- I IRA ZZ LOA ZS AIA. SE 


@QOOOue OO DOu OC OOu OOOOu MOO 
ts 16D to OF te. UO LUO ue LUO a Ot UO a Ot OO 


—Ou0O7-O007—- 04.057 -OOOMe— 
OwWMWO LOMOOC LOMBDO LOM: OOM 


uN ST Vv w 
o u a ua 


SCODES + ODDF 


WMO WMMM WMO WhO 
wooo oowno woowwo woowd 


La] 
~o 


a 
“ 
eo 
@ 
oo 
Cc 
- 
ro 
S 
Oo 
i. 4 


122 bytes, 


iaiaal 


; Routine Size: 


LNK 
v04 
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LNK_GETCMDINP 8 ep-1984 23:57:45 AX-11 Bliss-32 V4.0-74 Page 68 LN 
1047000 eet) Pa ee oe ta CET ae 9° 26) vo 
routine outputfile 
(desc : ref block C,byte)) : novalue = 


'¢ 
\ 


This routine is called by cli if an output file is to be created. 


The variable ‘‘OUTFILE’’ points to the cell which is to receive the 
address of the file descriptor block for the particular output file. 


se 
a. 
=] 


fdb = .outfile : ref block C,byte] ; ! Point to the pointer 
-fdb eql 0 ! If FDB not yet allocated, 


wo’, Le 
>o_- —@ 1 


@ 
> 


begin 

ink$allof 
ink$allob 
end ; 

Hb (fdb Cfdb$Sw_usrnamlen] = .desc Cdsc$w_length]) neq 0 ! Update file descriptor 


en 
ch$move (.desc Cdsc$w_length], .desc Cdsc$a_pointer], .fdb Cfdb$!_usrnamadr]) ; ! Copy name 


db (fdb) ; ! Allocate one 
Lk (nam$c_maxrss, fdb Cfdb$l_usrnamadr]) ; ! Allocate space for filename 


SN 


MNO | 3 SS SS SS OOOO OOOO 


MEUM —O DOONAN O OONOUE Wn" 


return ; ! and we are all done 
end ; 


Be Be we Oe ee SH Se os Ge BF St we OF Se BOSS Ss Se Oe BH Ge SESH Se SHE 

a a ke et a ks ot nd ot = = 8“ to et 
AM FWN "OC OONAUNE WN "OC OONOUS WN 
ae es = ts 4 SS ws as 2 os SS oY 


=—PUIPNINPINININI NI AWIINININID 4 2 OO Ot OS OO 


003C 00000 OUTPUTFILE: 
<WORD Save R2,R3,R4,R5 : 1700 
2 ooooooooy 65 ap anges Hatt au ae ane 
16 12 $0008 BNEQ ~=s«s1$ ; 
52 DD 6000p PUSHL  R2 + 1716 
FA70 CF 01 FB O000F CALLS #1, LNKSALLOFDB : 
7E 62 10 C1 00014 ADDL3 #16, (R2), -(SP) + 1717 
7E FF 8F 9A 00018 MOVZBL #255. -(SP) ; 
000000006 90 08 FB o0i¢ CALLS #2, LNK$ALLOBLK : 
0 62 DO 00023 1$: MOVL  (R2), RO : 1720 
51 04 AC DO 00026 MOVL DESC. R1 : 
Oc AO 61 80 900 A MOVW (RI). 12(RO) : 
10 B80 04 BI by 28 00080 Sree, ER). @e(R1). a16(RO? : 172 
be $0086 2$: RET : 1938 


; Routine Size: 55 bytes, Routine Base: S$CODE$ + 0E59 


LNK_GETCMD INP 
vO4z000 


=" 
ano 


IGN 


OONAOVUE WN" OOONOU SW O0OW 
ANNI 


WAANAIWNIWwwnororor 


vuvuvvU 
Ol a 
SSNS SSS 


DUP ES BS EE EE 


fab Cfab$v_ofp] = 
$nam_init (nam 


RAAMMAAAARRE RE ERE RE 


VSSESSSESESE 


OO dd dd od 
DOONAN WN O OODNAUE WN (OOO NOUE WN OOONIO 


aon 
Nw 


oo 
o— 


routine setup_inrelnam 
(ofp_flag 


fn desc 
ti le_nene : 
fi: = 


begin 
toval 


status, 
fab 


$tab_init (fab 


dna 
dns 
fns 
fna 

nam 


rsa 
rss 
esa 
ae 


return .status - 
nd 


02 A6é 


: ref block 
: ref block 


: block Cfab$c_bln, byte] ; 


fab 
Gites ped 
typelen 


“ina desc pdscéu. Length] 
dsc$a_pointer] 


‘ a “desc 


‘ofp. tee : 


“tile _name 
*nam$c _maxrss 
- file_name 
“nam$c _maxrss 


y (status = Sparse (fab=fab)) 


n 
nam Cnam$b_rsl] = .nam Cnam$b_esl] ; 


007C 00000 SETUP_ ~~" 
BO AE YE 00002 


: C 00006 
on fo 


9 
oc ac D 1 
56D 1 
ret 
i 
06 AC fF 
0 2c 
6002 er 0 
1 BE 0004 


ref vector 


1984 23:57:45 AX-11 Bliss- 4.0 
71984 13:20:40 LINKER.SRC LNKGETCMD. 3 2;1 


! Fab SPARSE 


! Intialize the fab 


! Decide on ‘output file parse’ setting 
! Initialize the nam block 


SYSSPARSE 


Save R2,R3,R4,R5,R6 
0(SP) 


$ 
#0, (SPS, #0, #80, $RMS_PTR 


#2, SRMS_PTRF22 
#2, SRMS_PTR+31 


NAM, R6 ~ 
R6, SRMS PTR+40 


4(RO), $RMS_PTR+44 
oP 4, SARS, PTR+ Rese 


0,7(SP); aR: 596." 
#24578, (R6) 
r 2(R6) 


Hy SRMS_PTR 


10 
ees B-sep-1984 93:57: 


LNK 3 tig 


; Routine Size: 


SPLITS 
$GLOBALS 
SOWNS 


LIBSKEYOS 
“LIBSSTATES 
LIBSKEY1$ 
scopes 


File 


$2 Seg SDUAGE: 
=$255$DUA 
-$8 SS$DUA 
“$5 55$DUA 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LNKGETCMD/OBJ=OBJ$:LNKGETCMD MSRCS$:LNKGETCMD/UPDATE=(ENHS:LNKGETCMD) 


1675 


1 
1 p-1 
4 Ab 10 A 0 48 
oA A6 Of br 4D 
C Ab 10 ac e 2) 
000000006 60 ej 4 038 
0 § OSF 
03 A6 0B aé 90 306 
04 67 1$: 
104 bytes, Routine Base: SCODE$ + 0E90 
1760 
1761 1 end 
1762 0 eludom 
PSECT SUMMARY 
Bytes Attributes 
452 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
3 NOVEC, WRT, RD ,N EXE. OSHR, 
1536 NOVEC, WRT, RD *NOEXE, NOSHR, 
10 NOVEC,NOWRT, RD, EXE, SHR, 
OQ NOVEC,NOWRT, RD, EXE, SHR, 
i NOVEC,NOWRT, RD, EXE, SHR, 
3832 NOVEC,NOWRT, RD, EXE,NOSHR 
Library Statistics 
wee scene Symbols ecececcecn 
Total Loaded Percent 
SYSLIBIS n LET.L32;1 9776 "97 1 
LINKER.OBJ] DATBAS “(32:1 538 6 14 
thevet FB at Be JAC Lees} 14 0 
Beyer Bit AMAC.L32;1 42 21 5 


1763 0 


COMMAND QUALIFIERS 


~EXTRN 


$3 AX-11 Bliss-32 V4.0-7 
LINKER. SRCJLNKGETCMD. : 2;1 


ite, Wane 4(R6) 
FICE NAME, 12(R6) 
SYSSPARSE 
RB), 3(R6) 


Yan 
vo 


LIBSSIGNAL, LIBSSTOP 


LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, Fon ere ar ioness 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON, PIC,ALIGN(1) 
LCL, REL, CON, PIC,ALIGN(1) 
LCL, REL, CON, PIC,ALIGN(1) 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 

581 00:01.1 

ef ses 

14 $0:00:1 


TCMDINP 


ne 


e + 2125 data bytes 
4 


1 
18.29, -1986 23:57:45 


VAX-11 Bliss=32 v4.0-742 
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